Написать алгоритм читающий «N» и выдающий на экран квадраты чисел от 1 до «N» -Pascal(Паскаль)

uses crt;

var
  i, n: integer;

begin;
  clrscr;
  writeln('Введите число N');
  readln(n);
  FOR i := 1 TO n do
  begin;
    writeln(i * i);
  end;

end.