Нужно составить задание на паскале для каждого примера (фото)

:

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 программа ничего не выводит.