предлагаю решение на Паскале
var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln ('n=',n);
end.
Решала сегодня это задание на олимпиаде наук. набрала все баллы за него
ответ: 5, 3, 2, 1, 4.
Вы вводите 2 числа,затем он выведет произведение суммы и разности этих чисел.
0,000044 вот
это же просто