Буду очень благодарен)

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

PascalABC 3.4.2

Нужно найти максимальное и минимальное из трёх чисел.
Пусть даны три числа x, y, z
Пусть:
m = min{x, y, z}, 
M = max{x, y, z},
r = max - min;
Теперь остаётся записать в качестве ответа число r, оно и будет разницей.

На C++ написал бы так:
#include <iostream>
using namespace std;

int maxNum(int x, int y, int z)
{
     if ((x>=y)&&(x>=z)) 
          return x;
      else if ((y>=x)&&(y>=z))
          return y;
      else
          return z;
}

int minNum(int x, int y, int z)
{
     if ((x<=y)&&(x<=z)) 
          return x;
      else if ((y<=x)&&(y<=z))
          return y;
      else 
          return z;
}

void main()
{
      setlocale(0, "Rus");
      int x, y, z;
      cout << "Введите через пробел 3 числа" << endl;
      cin >> x >> y >> z;
      cout << "Разница : " << maxNum(x,y,z) - minNum(x,y,z) << endl;
}