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

Question

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

Answer 1

{PascalABC}

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