Дано два числа. если их произведение больше 100, то вычесть из него 5 и результат вывести на экран, в противном случае, к произведению прибавить 10 и вывести значение на экран ​

program printmulti;

var first, second, multi: integer;

begin

    write('введите первое число: ');

    readln(first);

    write('введите второе число: ');

    readln(second);

    multi : = first * second;

    if multi > 100 then writeln(multi - 5)

    else writeln(multi + 10);

end.

A        b    a^b        (a^b)v(a^b)0        0        0                    00        1        0                    01        0        0                    01        1        1                    1   

Var a: array [1..1000] of integer; n, i, max, min, amount: integer; begin       read(n);       for i : = 1 to n do           read(a[i]);       max : = a[1];       min : = a[1];       amount : = 0;       for i : = 1 to n do       begin           if a[i] > max           then               max : = a[i];           if a[i] < min           then               min : = a[i];           if (i mod 2 = 0) and (a[i] < 0)           then               amount : = amount + 1;       end;       writeln('sum of min and max equals ',max + min);       writeln('amount of numbers below zero and on even places: ', amount);       for i : = 1 to n do           if i mod 2 = 0           then               write(a[i], ' '); end.