Написать программу подсчёта количества чисел, больше 5.
Pascal ABC
Срочно нужно!

Ответ:

begin

 var i:= readinteger('Введите число');

 var sum: integer;

 if i>=5 then

     sum := i-5

   else

     sum := 0;

 sum.Println

end.