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

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.