помоги очень прошу
вводим с клавиатуры число ,если оно меньше -5 или больше 5 вывести на экран символ ,,$'' иначе,,@''

а можете еще помочь вводим с клавиатуры два числа если их произведение больше 0 то выводим на экран их разность иначе сумму

Var   A:real;BeginWrite('Введите число: ');ReadLn(A);if Abs(A)>5 then Write('$')else Write('@')End.