предлагаю решение на Паскале
var n: integer;beginread (n);if (n mod 5)=0 then n:=n*4elsen:=n-25;writeln ('n=',n);end.
предлагаю решение на Паскале
var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln ('n=',n);
end.