Ответ Автор - alinamora var sum:real; i:integer;beginsum:=0;for i:=1 to 50 dosum:=sum+(i/2);writeln(sum);end.