Program v PASCAL-e

program pre_teka;
uses crt;
var v:text;
    d,h,c:integer;
    m,pm:string;
begin
     assign(v,'a:\vstup.txt');
     reset(v);
     clrscr;
     d:=1; h:=0;
     readln(v,m);
     readln(v,c);
     h:=h+c;
     pm:=m;
     writeln('Do prv‚ho mesta ',m,' dorazia za ',c,' hodˇn.');
     while not eof(v) do
      begin
       readln(v,m);
       readln(v,c);
       if (h+c) > 7 then
        begin
         writeln(d,'. noc prespia v meste ',pm);
         inc(d);
         h:=c;
        end
                     else
        begin
         h:=h+c;
        end;
       pm:=m;
      end;
     write('Po ',d,' dnoch a ',h,' hodinach dorazia do mesta ',m);
     close(v);
     readln;
end.

prve
3
druhe
2
tretie
4
stvrte
3
piate
1
sieste
5
siedme
3
osme
4