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

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