На 10 пронумерованных дисках записано различное коли- чество файлов. Сколько всего файлов записано? Определите номер
диска, на котором записано максимальное количество файлов. Мас-
сив данных задайте в виде целочисленных констант.​

как пример:

составное выражение, лигические операторы:

not - отрицание

and - умножение

or - сложение

результат - истина:

(2 + 2 = 5) - ложь, в инверсии - истина

(3 * 3 = 9) - истина

(1+1=8) - ложь, но не влияет на результат, поскольку -

not(2 + 2 = 5) and (3 * 3 = 9) - истина

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.