язык Паскаль найдите сумму квадратов всех целых чисел от 1 до 15

var  i: byte;  sum: integer;begin  sum := 0;   for i := 1 to 15 do   begin    sum := sum + sqr(i);   end;  writeln('Сумма квадратов чисел от 1 до 15 = ', sum);  readln;end.