Дано целое число n увеличить число в 4 раза если число кратно 5 иначе уменьшить на 25

предлагаю решение на Паскале

var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln (n=,n);
end.