pascal1

program dua;
uses crt;
var
n: integer;
begin
clrscr;
write('masukkan nilai n: '); readln(n);
if (n>=30) and (n<=100) then begin n:=(n+10) mod 20; if (n<=20) then n:=n mod 5; if (n>=30) then
n:=n mod 4
else
n:=n mod 5;
end
else
n:=n mod 6;
n:=n+5;
writeln(n);
readln;
end.