Вывести на экран квадраты чисел от 1 до 10

РЕШЕНИЕ НА ФОТОГРАФИИ 2 Варианта

Это литература? :D Если информатика то:
begin
x, time : integer;
time:= 1;
x:= 1;
repeat
writeln(x*x);
time:= time+1;
x:= time;
until time = 10;
end.

PascalABC