Question

вычислить и вывести значения площадей 40 квадратов при различных значениях их сторон (А>0 ) Pascal.

Answer 1

i: integer;
begin
for i := 1 to 40 do
writeln(sqr(i),' Сторона = ',i);
end.