Question

Помогите решить (100 баллов)

Answer 1

Ответ:

var a, b, c:integer;

begin

read(a); read(b);

for c := a to b do

writeln(c,' ^ 2 = ',Sqr(c));

end.

Объяснение:

Вот! Надеюсь все понятно?