Question

информатика. програмирование. паскаль.

Answer 1

var
   i,y:integer;
begin
   y:=0;
   for i:=1 to 25 do
      y:=y+i*2;
   writeln('y=',y);
end.