Паскаль даны 40 квадратов. найти их площади, если стороны вводятся в компьютер. как решать?

Очень даже легко.
Ну вот программка на PascalABC:
program kv;
var
a,s,i:integer;
begin
readln (a);
for i:=1 to 40 do
begin
s:=sqr(a);
writeln (s);
readln (a);
end;
end.