Question

как с помощью цикла while вывести на экран квадраты всех цифр

Answer 1

{PascalABC}

var a:integer;
begin
while a<10 do begin
write(a*a,'  ');
a:=a+1;
end;
end.