Ответ:

4.

program zadanie4;

var

 a,b, k: integer;

begin

  writeln('Введите число a=');

  readln(a);

  writeln('Введите число b=');

  readln(b);

  for k := a to b do

  writeln(k, ' ^2=  ', sqr(k);

end.

5.

program zadanie5;

var  i,b,a,s: integer;

writeln('a=');

readln(a);

writeln('b=');

readln(b);

begin  

readln(b);

s:=0;

for i:= a to b do

S:=s+i*i;

write(s);  

end.

Объяснение: