Question

составить программу для вывода на экран квадратов чисел второго десятка ряда натуральных чисел.
В (пискале) ​

Answer 1

Program Quad;

var a,i: integer;

begin

for i:=11 to 20 do begin

a := i*i;

writeln (i, '^2 = ', a);

end;

end.

проверьте синтаксис, чтобы она скомпилировалась.