Компакт-диски

Чисті компакт-диски продаються в трьох різних видах упаковок. Упаковка зі 100 дисків коштує 100 грн., з 20 дисків - 30 грн., а один окремий диск коштує 2 грн. Якої мінімальної суми має вистачити для покупки N таких дисків?

Вхідні дані

Кількість N дисків, які потрібно купити. N ≤ 1000.

Вихідні дані.

Мінімальна сума, потрібна для покупки.

Вхідні дані

123

Вихідні дані

136

program sddiski;

label 1;

var n,s,y : qword;

kt,i : integer;

f1,f2 : text;

BEGIN

assign (f1,'input.txt'); reset (f1);

assign (f2,'output.txt'); rewrite (f2);

readln (f1,n);

s:=0;

y:=0;

1 :  if n<15 then s:=n*2 else

if (n>15) and (n<21) then s:=30 else

if (n>20) and (n<36) then s:=30+2*(n-20) else

if (n>35) and (n<41) then s:=60 else

if (n>40) and (n<56) then s:=60+2*(n-40) else

if (n>55) and (n<61) then s:=90 else

if (n>60) and (n<66) then s:=90+2*(n-60) else

if (n>65) and (n<101) then s:=100 else

if n > 100 then begin

y:=n div 100;

n:=n mod 100;

goto 1;

end;

s:=s+y*100;

writeln (f2,s);

close (f1);

close (f2);

END.