Program sumowanie; var suma, n:byte; Begin suma:=0; WriteLn(Podaj wartość nieujemnej liczby naturalnej'); ReadLn(n); IF (n>0) then //Teraz trzeba użyć pętli w której suma będzię wzrastać o "n", a samo "n" będzię dążyło do 0. Polecam tutaj Repeat . . . . UNTIL n=0; WriteLn('Suma wynosi ', suma); ElSE WriteLn('Suma jest równa zero'); ReadLn(); End.