program khuyen_mai;
uses crt;
var m, n :integer;
begin;
clrscr;
write('nhap so cuon vo can mua :');readln(m);
write('nhap so cay but bi can mua :');readln(n);
writeln('so tien can phai tra luc ban dau la :', m*5000 + n*3500);
writeln('so tien can phai tra luc sau la :', (( m*5000 + n*3500 )*90/100):8:);
readln
end.

Câu 3 :
1)     Program tinhtong;
2)     Var r, chivi, dientich : real;
3)     Const pi = 3.14;
4)     Begin
5)     Write('Nhap so ban kinh r =');Readln(r);
6)     Chuvi := 2*pi*r; dientich := pi*r*r;
7)     Writeln('chu vi duong tron =', chuvi:8:3);
8)     Writeln('dien tich hinh tron =', dientich:8:3);
9)     Readln
10)   End.
Dòng 1 sau tinhtong thiếu dấu chấm phẩy;
Dòng 2 sau dientich là dấu hai chấm
Dòng 3 sau pi dư dấu hai chấm
Dòng 6 sau chuvi thiếu dấu hai chấm
Dòng 7 có thể ghi là writeln 
Dòng 8 dientich:8:3 được đặt trong dấu ngoặc đơn là không đúng
Câu 4:
program khuyen_mai;
uses crt;
var m, n :integer;
begin
clrscr;
write('nhap so quyen vo can mua :');readln(m);
write('nhap so cay bu bi can mua :');readln(n);
writeln('so tien can phai tra luc ban dau la :', m*5000 + n*3500);
writeln('so tien can phai tra luc sau la :', (( m*5000 + n*3500 )*90/100):8:);
readln
end.