Написать программу, которая выводит таблицу квадратов первых десяти целых чисел

var
x: integer; {число}
y: integer; {квадрат числа }
i: integer; { счетчик циклов}
begin
writeln (‘Таблица квадратов’);
writeln(‘‘);
writeln(‘Число   Квадрат’);
writeln(‘‘);
for i:=l  to 10 do
begin
y:=x*x;
writeln (x:3,y:10);
x:=x+1;   
end;
writeln(‘‘);
readln;
end.