Люди, ! у меня билет попался: набор текста и печать изображения в графическом редакторе paintэто вопрос, что мне тут надо

0,3 м = 30 дм     0,2 м = 20 дм     80 * 60 = 4800 кв. дм     30 * 20 = 600 кв. дм   4800 / 600 =    80 шт

Uses crt; const n=10; var a: array [1..n] of integer;     x,min,max,sum: integer; begin       randomize;       for x: =1 to n do       begin           a[x]: =random(21)+5;           writeln('a[',x,']: ',a[x]: 3);       end;       min: =a[1];       max: =a[1];       for x: =1 to n do       begin           if a[x]< min then min: =a[x];           if a[x]> max then max: =a[x];       end;       sum: =min+max;       writeln;       write('max: ',max,'; min: ',min,'; max+min=',sum); end.

Uses crt; const n=10; var a: array [1..n] of integer;     x,k: integer; begin       for x: =1 to n do       begin           a[x]: =random(5);           writeln('a[',x,']: ',a[x]);       end;       for x: =1 to n-1 do       if a[x]=a[x+1] then inc(k);       if k> 0 then writeln('есть одинаковые соседние элементы.')       else writeln('одинаковых соседних элементов нет.'); end.