Repeat ciklus - példaprogram

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