Составить программу вывода на экран квадратов n чисел. n=10ю

Const
    n = 10;

var
    i: integer;

begin
    for i := 1 to n do
        writeln(i * i);
end.