PASCAL. Написать программу вывода на печать суммы квадратов трехзначных чисел

Замени знак доллара на тип из следующих (чем раньше стоит тем больше) — longword, int64 , longint; var i: longint; sq,sum: $; begin assign (output, 'prn); rewrite (output); for i: =100 to 999 do begin sq: =i*i; sum: =sum+sq; end; writeln (sum); end.