While ciklus - példaprogram

program Osszeg_szamitas;
uses Crt;
var adat, osszeg: integer;
begin
  ClrScr;
  osszeg := 0;
  ReadLn(adat);
  while adat > 0 do
    begin
      osszeg := osszeg + adat;
      ReadLn(adat)
    end;
  WriteLn('Az összeg: ',osszeg);
  ReadLn
end.