помогите с задачами
1) вводим число с клавиатуры если оно больше -5 или меньше 5 то вывести на экран ,,!!!!'' иначе ,,???''
2)вводим с клавиатуры два числа если их произведение больше 0 то выводим на экран их разность иначе сумму

Тут знаки равно используются исключительно для вида. Для "красивого" ввода и вывода.

Можно и так:Var a,b:real;BeginReadLn(A);ReadLn(B);if a*b > 0 then Write(a-b)else Write(a+b)End.

Var   A:real;BeginWrite('Введите число: ');ReadLn(A);if Abs(A)<5 then WriteLn('!!!')else WriteLn('???');End.Var a,b:real;BeginWrite('a = ');ReadLn(A);Write('b = ');ReadLn(B);if a*b > 0 then WriteLn('a - b = ',a-b)else WriteLn('a + b = ',a+b)End.