Program pr1; uses crt; var fl1, fl2: text; i, n, v, a, b: integer; begin clrscr; assign(fl1, 'input.txt'); assign(fl2, 'output.txt'); reset(fl1); readln(fl1, n); v: =0; for i: =1 to 1000000 do begin if i> =10 then begin a: =i div 10; b: =i mod 10; if (a mod 2< > 0) and (b mod 2< > 0) then v: =v 1; end else if i mod 2< > 0 then v: =v 1; if v=n then break; end; rewrite(fl2); writeln(fl2, v); close(fl1); close(fl2); end. в этом алгоритме есть ошибка найдите её плз

program pr1; uses crt; var fl1,fl2: text; i,n,v,a,b: integer; beginclrscr; assign(fl1,'input.txt'); assign(fl2,'output.txt'); reset(fl1); readln(fl1,n); v: =0; for i: =1 to 1000000 do beginif i> =10 then begina: =i div 10; b: =i mod 10; if (a mod 2< > 0) and (b mod 2< > 0) then v: =v{? } 1; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}endelse if i mod 2< > 0 then v: =v 1; {здесь тоже самое}if v=n then break; end; rewrite(fl2); writeln(fl2,v); close(fl1); close(fl2); end.

var a, b,c,k,d,e,g,h : integer;

var f : integer;

begin

writeln('введите стоимости билета за проезд до первой, до второй и до конечной станции через пробел : ');

readln(a,b,c);

writeln('введите сколько рублей должна быть конечная выручка : ');

readln(k);

d : = 10*a;

e : = 20*b;

g : = 20*c;

h : = d+e+g;

f : = h div k;

writeln(f, ' рейсов нужно совершить нужно совершить.');

end.

лог :

введите стоимости билета за проезд до первой, до второй и до конечной станции через пробел :

1

1

1

введите сколько рублей должна быть конечная выручка :  

50

1 рейсов нужно совершить нужно совершить.

var  

    n: integer;

    i: integer;

    sum: integer;

    result: integer;

begin

    writeln('введите значение n: ');

    readln(n);

   

    sum : = 0;     result : = 1;

    for i : = 1 to n do

    begin

        sum : = sum + i;

        result : = sum * result;

    end;

    writeln('конечное значение = ', result);

end.