Написать программный код на Паскале: Вывести на экран квадраты первых десяти натуральных чисел (используйте цикл while).

Ответ:
program qq;
var a, b:integer;
begin
a:=0;
while (a<>10) do begin
a:=a+1;
b:=sqr(a);
write(' ', b) ;
end;
end.