можете сделать информатику 11 задания это

Попробуйте. Конечно, можно использовать встроенную в PascalABC.Net функции min(a, b), для определиня минимального числа. Но чтобы наверняка не было бы проблем, можно пойти стандартным путем.

Объяснение:

program YourTitle;

var a,b,c,d, min:integer;

BEGIN

writeln('Введите 4 целых числа через пробел или Enter -> ');

readln(a,b,c,d);

min:=a;

if b<a then min:=b;

if c<b then min:=c;

if d<c then min:=d;

writeln('Меньшее из чисел = ',min);

min:= min * 5;

writeLn('Увеличенное в 5 раз: ', min);

END.

// PascalABC.NET

function ВерхнийТреугольник(Матрица: array[,] of integer):

   sequence of integer;

begin

 var ИндексMax := Матрица.RowCount - 1;

 for var ИндексСтроки := 0 to ИндексMax - 1 do

   for var ИндексСтолбца := ИндексСтроки + 1 to ИндексMax do

     yield Матрица[ИндексСтроки, ИндексСтолбца]

end;

begin

 var n := ReadInteger('N =');

 var СлучайнаяМатрица := MatrRandom(n, n, -99, 99);

 СлучайнаяМатрица.Println;

 var ПоложительныеЭлементы :=

      ВерхнийТреугольник(СлучайнаяМатрица)

     .Where(Значение -> Значение > 0);

 Println('Сумма положительных элементов равна',

     ПоложительныеЭлементы.Sum);

 Println('Число положительных элементов равно',

     ПоложительныеЭлементы.Count)

end.