[R.....N]

Mirki z programowanie. Robię zadanie z #pascal , w którym program ma zsumować wszystkie wypisane parametry podane przez użytkownika.

Co mam źle, że program działa, ale gaśnie? :|

program zadanie1;
uses sysutils;

var
suma : Integer;
a : Integer;

begin
suma := 0;
for a := 1 to ParamCount do
suma := suma + StrToInt(ParamStr(a));

Writeln('Suma twoich argumentów to ', suma);
end.

[MroczekBall3D]

@Rizi3N: pascala mialem w gimnazjum, daj zaraz po writeln znowu wpisywanie liczby z klawiatury, ale nie zapisuj jej nigdzie;

[DarkAlchemy]

@Rizi3N: Pascala to ja z 5 lat temu w liceum miałem, ale nie powinieneś na końcu wywołać potrzeby wcisnięcia klawisza, tak żeby Ci się program automatycznie nie zamknął?

[H.....a]

@Rizi3N: Daj readkey ale nie zapisuj wyniku. Program poczeka na reakcje użytkownika (naciśnięcie dowolnego klawisza) a potem się zakończy.
Jak nie działa daj 2x readkey i powinno działać.

[R.....N]

@MroczekBall3D: @DarkAlchemy: @Hipokryta: Teraz wziąłem się za to ponownie, ale nadal mam problem z tym iż wyświetla mi się "Suma twoich argumentów to 0". Szkoda tylko, że nic nie wpisywałem i nie mogę wpisać. Nie mam totalnego pojęcia dlaczego mi to nadal nie działa ( ͡° ʖ̯ ͡°)

[H.....a]

@Rizi3N: To program działa czy nie? :D
Program wygląda dobrze. Spróbuj testowo wydrukować ParamCount i każdy ParamStr.

[R.....N]

@Hipokryta: no właśnie działa, ale nie tak jak powinien. Najlepsze jest to, że u mnie nie działa, a mojemu znajomemu - tak XD