1.
program Chernovik;
var x,k:real;
begin
readln(x);
if x>6 then k:=x*x
else k:=x/2;
write(k)
end.
2.
program Chernovik;
var b,x,s: integer;
begin
readln(b);
s:=0;
if b>=5 then
begin
x:=b*b;
s:=s+x;
writeln(x);
writeln(s)
end
end.
Объяснение:
1. При делении результат всегда вещественное число, поэтому k - real, а x за компанию.
2. Начальное значение s в схеме не указано, поэтому взято равным 0. При b меньше 5 программа ничего не выводит.
