pascal2

program satu;
uses crt;
var
n: integer;
begin
clrscr;
write('masukkan nilai n: '); readln(n);
if(n>=100) then begin
n:=n mod 10;
if(n>=50) then
n:=n div 5
else
n:=n+2;
end;
n:=n*4;
writeln(n);
readln;
end.