При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
program p1;var s, c:integer;begin while true do begin writeln('Введите число >> '); readln(c); if c mod 2 <> 0 then begin s:=s+c; end else break; end; writeln('Сумма четных чисел:'+ s);end.
