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 - целых чисел. Если не так - напишите.
