Succ(round(5/2)-pred(3)) обчислить значение выражения ( Object Pascal)​

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

все слова по 6 букв, в каждом в середине находится "оро", в каждом присутствуют одни и те же гласные на тех же местах

16 цветов=4 бита/пиксель

640*250=160000 пикселей — размер изображения

160000*4=640000 бит = 80000 байт.