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

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