Bài 1 :
Dòng 1 : dấu bằng trước real sai, thay phải dấu hai chấm
Dòng 2 : sau Pi dư dấu hai chấm
Dong 4 : Readln(S) sai, đổi writeln thành write 
Dòng 5 : sau S thiếu dấu hai chấm
Dong 6 : đổi write thành writeln
Var R, S  : Real;
Const Pi = 3.14;
Begin
Write('nhap ban kinh hinh tron R =');Readln(R);
S := R*R*Pi;
Writeln('Dien tich hinh tron la ', S :5:2);
End.
Câu 2 :
program tien;
uses crt;
var a, b, g : integer ;
const p = 15000;
begin
clrscr;
write('nhap so luong mon an  :');readln(a);
write('nhap gia tien cho mon an :');readln(b);
g := b*a + p;
writeln('tong so tien khach phai thanh toan la :', g);
readln
end.