Пожалуйста посчитайте пожалуйста​

(см. объяснение)

begin

 var x: integer := ReadInteger('Введите целое число >>');

 if(x>0) then writeln(3)

 else if(x=0) then writeln(0)

 else writeln(-3);

end.

begin

 'Введите 4 числа через пробел:'.Println;

 var a: array of integer := ReadArrInteger(4);

 a.Sort; 'Максимальное число: '.Concat(a.Last.ToString).Println;

end.