uses crt;

var a, b: integer;

       c: real;

begin

clrscr;

writeln('Nhap so luong vo da mua:');

readln(a);

writeln('Nhap so luong cay viet da mua:');

readln(b);

a:= 12000*a;

b:=5000*b;

c:=a+b;

if c>=100000 then c:=c*30/100 else c:=c*10/100;

writeln('So tien phai tra sau khi da khuyen mai la:', c:6:2);

readln;

end.

uses crt;
var sovo,soviet:integer;
tong:real;
Begin
clrscr;
Write('Nhap so vo ');Readln(sovo,);
Write('Nhap so viet ');Readln(soviet,);
tong:=sovo*12000+soviet*5000;
Write('so tien khi mua vo va viet la ',tong:5:0);
readln;
if tong>100000 then write('tong so tien phai tra khi da khuyen mai la ',tong-tong*3/10:5:2)
else write('tong so tien phai tra khi da khuyen mai la ',tong-tong*1/10:5:2);
Readln
end.