Kód:
program nej_cislo;
uses crt;
var soucet,cislo: integer;
begin
clrscr;
soucet:=0;
repeat
write('Zadej cislo: ');
readln(cislo);
soucet:=soucet+cislo;
until cislo=0;
write('Soucet je ',soucet);
repeat until keypressed;
end.
Zadanim 0 se ukonci zadavani a vyplyvne to soucet.
Snad jsem to vykoktal dobre, psal jsem to zpameti...