Question

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

Answer 1

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

Answer 2

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