program gerade_ungerade;

uses
  System.SysUtils;

var
wert, i, summe: integer;

begin

 wert := 0;
  summe := 0;
  repeat
    writeln('Bitte ganzzahligen Wert ab 0 eingeben.');
    readln(wert);
    until (wert > 0);

  for i := 1 to wert do
  begin

    if (i mod 2 = 0) then
    begin
      writeln('Die Zahl ', i, ' ist gerade.');
      summe := summe + i;
    end
    else if i mod 2 = 1 then
    begin
      writeln('Die Zahl ', i, ' ist ungerade.');
     end
    else;

  end;

  writeln('Die Summe beträgt:', summe);

  readln;

end.