Среди перечисленных чисел максимальным является : а)ef16; б)3468; в)24510; г)111101112.

Под г! вроде,я не уверена 

Program fgg; var x: string[10]; t, v, s: real; begin write('что будем искать? : '); readln(x); if x = 'скорость' then begin write('введите расстояние: '); readln(s); write('введите время: '); readln(t); writeln('скорость=', s / t); end else if x = 'время' then begin write('введите расстояние: '); readln(s); write('введите скорость: '); readln(v); writeln('время=', s / v); end else if x = 'расстояние' then begin write('введите скорость: '); readln(v); write('введите время: '); readln(t); writeln('расстояние=', v * t); end else writeln('неверно указано, что будем искать.'); end.

№1var r,n: integer; c: array[0..9]of integer; beginfor r: =0 to 9 do beginc[r]: = random(50)-25;   write(c[r]: 4); if (abs(c[r]) mod 2 = 1)and (r mod 2 = 0) then c[r] : = 0; end; writeln; foreach n in c dowrite(n: 4); end.№2var r,n,m,max,k: integer; c: array[0..9]of integer; beginmax: =-30; for r: =0 to 9 do beginc[r]: = random(50)-25;   write(c[r]: 4); if (c[r] < 0) and (max < c[r]) then max : = c[r]; end; writeln; for r: =0 to 9 do beginif c[r] > 0 then  c[r]: = max; end; writeln; foreach n in c dowrite(n: 4); end.