program SquareNumbers;
vari: Integer;
beginfor i := 1 to 10 dobeginwriteln('Square of ', i, ' is: ', i * i);end;end.
program SquareNumbers;
var
i: Integer;
begin
for i := 1 to 10 do
begin
writeln('Square of ', i, ' is: ', i * i);
end;
end.