4.напечатать столбиком квадраты всех двузначных целых чисел (на языке pascal)

Program;
var a,i:integer;
Begin
for i:=10 to 99 do
begin;
readln(a);
a:=a*a;
end;
writeln(a);
End.