Program w turbo pascal - wyskakujące błędy

Witam napisałem program na zaliczenie na programowanie biurowe…

jednak program mi wywala błędy… i nie wiem jak sobie z nimi poradzić

Więc napiszę Go…

Piszę Go w Turbo pascalu 7.0

Tytuł programu : program, który wypisze sumę wszystkich liczb naturalne od 1 do n…

program liczby_nat;

uses crt;

var i,n,suma: integer;

begin

clrscr;

writeln ('Podaj n:');

readln(n);

suma:=0;

for i=1 to n do

suma:=suma+i;

writeln(suma);

readkey;

end.

Czy ktoś mi może powiedzieć gdzie tkwią błędy?

Bo sam już przerabiałem i nadal mi wyskakują błędy.

for i:=1 to n do

Wszystko jest okej

ale jak chce odpalić ten program to pisze: Error 200: division by Zero

o co w tym chodzi?

Bo ten program musi zadziałać?

Turbo Pascal jest _prehistoryczny_. Znajdź patcha na ten błąd w bibliotece CRT lub usuń “uses crt;” i usuń clrscr, ewentualnie zastąp readkey za pomocą np. readln ( nie pamiętam czy readkey jest dostępne bez crt);

No wiem że jest prehistoryczny

ale niestety to ma byc program na zaliczenie

Kurcze, już sam nie wiem, bo do soboty muszę mieć ten program zrobiony na cacy…

Ok działa, dzięki ucho.