uses crt;

var a, b, c, t : longint;

begin

clrscr;

write('nhap so cuon :');readln(a);

write('nhap so ngay :');readln(b);

write('nhap gia :');readln(c);

t := a * b * c;

if b > 5 then writeln('tien thue sach :', t - 2000)

else writeln('tien thue sach :', t);

readln

end.

program bai_giai;

uses crt;

var tt,sn,sc,g:int64;

begin

clrscr;

write('nhap so ngay thue sach:');readln(sn);

write('so luong cuon sach thue:');readln(sc);

write('gia 1 cuon sach la:');readln(g);

tt:=sn*sc*g;

if(sn>5)then write('tong so tien la:',tt-2000)else write('tong so tien la:',tt);

readln;

end.