сделать задание, кто в этом разбирается​

write("");

или что тебе надо?

program av;

var a,b,c,d,e,f: integer;

begin

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

readln(a,b,c);

if (a< b) and (a< c)

then a: =2*a*b*c

else 

if (b< a) and (b< c)

then   b: =2*a*b*c 

else  c: =2*a*b*c;

writeln(a,' первое число',b,'второе число',c' третье число') ;

end. 

это если без массива

var n,i: integer;

a0,a1,a2,s: real;

begin

  read(n);

  for i: = 1 to n do begin

      if i< 3 then a0: =1

      else a0: =a1+a2;

      s: =s+a0;

      a2: =a1;

      a1: =a0;

  end;

  writeln(a0, s);

end.

var

a: array [1..100,1..100] of integer;

n,m,i,j: byte;

sr: real;

sum: integer;

begin clrscr;

writeln('введи кол-во строк: ');

readln(n);

writeln('столобцов: ');

readln(m);

randomize;

for i: =1 to n do

  for j: =1 to m do

  a[i,j]: =random (10)+0;

sum: =0;

for i: =1 to n do

  for j: =1 to m do

  sum: =sum+a[i,j];

sr: =sum/(n*m);

writeln('среднее арифметичексое: ',sr);

readkey;

end.

p.s.

могу напутать с типами данных