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

Var
   A:real;
Begin
Write('Введите число: ');ReadLn(A);
if Abs(A)<5 then WriteLn('!!!')
else WriteLn('???');
End.



Var a,b:real;
Begin
Write('a = ');ReadLn(A);
Write('b = ');ReadLn(B);
if a*b > 0 then WriteLn('a - b = ',a-b)
else WriteLn('a + b = ',a+b)
End.