uses crt;
var s,v:longint;
begin
clrscr;
   write('So sach, vo: ');readln(s,v);
   writeln('Tien sach: ',s*3000,'d');
   writeln('Tien vo: ',v*5000,'d');
readln;
end.

program Tinh_tien;

uses Crt;

var s,v, sls, slv, gts, gtv: integer;

begin

         Clrscr;

         Writeln ('Nhap so tien sach: ');

         Readln (s);

         Writeln ('Nhap so luong sach: ');

         Readln (sls);

         Writeln ('Nhap so tien vo=: ');

         Readln (v);

         Writeln ('Nhap so luong vo: ');

         Readln (slv);

         gts := s*sls;

         gtv := v*slv;

         Writeln ('So tien mua sach la: ', gts :0:2);

         Writeln ('So tien mua sach la: ', gtv :0:2);

         Readln;

end.