Составить программу

вычислите выражение

program Summa;

var

 k, y, s: Integer;

begin

 s := 0;

 for k := 1 to 10 do begin

   s := s + k * k;

 end;

 y := 100 + 5 * s;

 WriteLn ('y = ', y);

 ReadLn;

end.

Объяснение:

Текста задачи полностью не видно. Сделал для k - целых чисел. Если не так - напишите.