pomoc s pascalem pls.

prosim o pomoc s vyresenim ukolu v pascalu...
Program Pocet znaku
zadani:ve skole je 19 trid.Budou zadavany postupne pocty zaku zaku v jednotlivych tridach.Spocitejte pocet zaku skoly.
mame to na pristi tejden takze to moc nespecha...
pokud mozo piste na sz
diky moc

WTF??? to jako ze mas secist cisla co budou po sobe zadavany???
s tim chces pomoct??? a nebo sem to spatne pochopil?? ???

:lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :-o :-o :eek: :eek: :lol: :lol:

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...

co delas za skolu? takove zaklady jste snad uz brat museli ne? nacti-spocti-vypis je to nejjednossi co muze byt...teda kdyz nenacitas treba matice ze souboru :-)

ten kod je dobry ale asi bych tam dal

const pocet_trid = 19;

begin
for i=1 to pocet_trid do
begin
{nacte a pricte}
end;
writeln(soucet);
readln;
end.

diky moc...