Вывести на экран двузначные четные числа. написать на языке паскаль.

var i: integer;

begin

write('введите число ');

for i: =1 to 99 do begin

if (i mod 2 = 0) then write(i,' ');

end;

end.

лови

Шаг 1. рабочий поезд идет по главному пути и проходит весь за начало тупика. затем он останавливается и задним ходом заходит в тупик, где отцепляет два вагона, а сам проходит вперед.  шаг 2. пассажирский поезд проходит вперед за начало тупика, к последнему своему вагону прицепляет два вагона рабочего поезда и, двигаясь вперед, выводит их из тупика. затем пассажирский поезд задним ходом отходит за начало тупика.  шаг 3. рабочий поезд (тепловоз и вагон) задним ходом полностью заходит в тупик.  шаг 4. пассажирский поезд отцепляет два рабочих вагона и идет по свободному пути в нужном направлении.  шаг 5. рабочий поезд (тепловоз и вагон) выходит из тупика, задним ходом подходит к своим вагонам, цепляет их и занимает свое первоначальное положение. 

Program bifi; const n=50; var a: array[1..n] of integer; i,c,l: integer; begin for i: =1 to n do readln(a[i]); c: =0; for i: =1 to n do if a[i] mod 2 = 0 then c: =c+1; writeln(c); readln; end. program bifi; const n=50; var a: array[1..n] of integer; i,k,l: integer; begin k: =0; l: =0; for i: =1 to n do begin  readln(a[i]);                       if a[i]< 0 then k: =k+1                                    else if a[i]> 0 then l: =l+1;                       end; if k> l then writeln('больше положительных')         else if l> k then writeln('больше отрицательных')                         else writeln('одинаково'); readln; end.