Люди срочно пожалуйста кто хорошо знает информатику??? необходимо 5-ое задание сделать

При копировании кода из IDE на сайт автоматически удаляется перенос строчки. Будет прикреплен снимок экрана того, как должен смотреться код


program p1;var s, c:integer;begin  while true do    begin      writeln('Введите число gt;gt; ');      readln(c);      if c mod 2 lt;gt; 0 then         begin          s:=s+c;        end      else break;    end;   writeln('Сумма четных чисел:'+ s);end.