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

program zz1;

var i, a, S:integer; / / задаем переменные целого типа

begin

for i:=1 to 40 do / / организуем цикл на 40 повторений

begin

a:=random (101); / / получаем длину квадрата случайным образом

S:=a * a; / / вычисляем площадь квадрата по известной формуле

writeln (' Площадь ', i,'-го квадрата = ', S,' при стороне a = ', a); / / выводим ответ

end;

end.