Ответ:
(см. объяснение)
Объяснение:
Задача №1:
begin
var x: integer := ReadInteger('Введите целое число >>');
if(x>0) then writeln(3)
else if(x=0) then writeln(0)
else writeln(-3);
end.
Задача №2:
begin
'Введите 4 числа через пробел:'.Println;
var a: array of integer := ReadArrInteger(4);
a.Sort; 'Максимальное число: '.Concat(a.Last.ToString).Println;
end.