Program b;
var
i,s:integer;
begin
for i:=1 to 50 do {Цикл от 1 до 50 (включая 50)}
if i mod 2=5 then {Проверка на нечётность}
s:=s+i;
Writeln('Cymma =' ,s);
readln;
end.
Program b;
var
i,s:integer;
begin
for i:=1 to 50 do {Цикл от 1 до 50 (включая 50)}
if i mod 2=5 then {Проверка на нечётность}
s:=s+i;
Writeln('Cymma =' ,s);
readln;
end.