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.