Решите на abc_pascal net я не знаю как делать решите буду вам . 3-4 надо можно любую ​

3-я :

program qq;

var a,b,c,f,m: integer;

begin

writeln('введите три числа');

readln(a,b,c);

if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then

begin

if a> b then f: =a else f: =b;

if f> c then f: =f else f: =c;

writeln('максимальное число =: ',f);

end

else

if a> b then m: =b else m: =a;

if m> c then m: =c else m: =m;

writeln('минимальное число =: ',m);

end.

Var   n,i,k,s,min: longint;   a: array[1..100] of longint; begin   write('write size array: '); readln(n);   for i: =1 to n do   begin     a[i]: =random(50);     write(a[i]: 4);   end;   min: =a[1];   k: =1;   s: =0;   for i: =1 to n do   if a[i]< min     then     begin       min: =a[i];       k: =i;     end;   for i: =1 to k do   s: =s+a[i];   writeln(s);   readln end.

Алг группа нач   цел n = 10   целтаб a[1: n]   цел i, min, max, imin, imax     нц для i от 1 до n     вывод "a[",i,"] = "     ввод a[i]   кц   вывод нс     max: =a[1]   imax: =1   min: =a[1]   imin: =1   нц для i от 2 до n     если a[i] > max то       max: =a[i]       imax: =i     все     если a[i] < min то       min: =a[i]       imin: =i     все   кц   вывод "max = ",max," imax = ",imax,нс   вывод "min = ",min," imin = ",imin,нс кон