Люди срочно пожалуйста кто хорошо знает информатику??? нужно пятое задание сделать (Определите сумму нечетных чисел . если введенное число будет четным - цикл заканчивается ) НУЖНО СОСТАВИТЬ ПРОГРАММУ !!! - Начало : Program Wrile_Demo;
Var
...
Помогите пожалуйста.

При копировании кода из 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.