Question

pascal ABC помогите плес

Answer 1

program inf;
var
ish: longint;
otvet : real;
begin
readln(ish);
if ish mod 5 = 0 then
otvet := ish*4
else
otvet := ish/25;
writeln(otvet);
end.