pomoc s pascalem pls.

[GEP]

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

[Miiisa]

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

[night_]

[mudboy]

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

[Ssnake]

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.

[GEP]

diky moc...