var a,b,i,kvadrat: integer;
begin
writeln('Введите числа a и b (a должно быть меньше b)');
readln(a,b);
for i:=a to b do
kvadrat := i*i;
writeln('Квадрат числа ',i,' = ',kvadrat);
end;
end.
var a,b,i,kvadrat: integer;
begin
writeln('Введите числа a и b (a должно быть меньше b)');
readln(a,b);
for i:=a to b do
begin
kvadrat := i*i;
writeln('Квадрат числа ',i,' = ',kvadrat);
end;
end.