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.

Bài 1:

(1) Khai báo biến sai dấu "="

Sửa: Var R,S:real;

(2) Khai báo hằng dư dấu ":"

Sửa: Const Pi=3.14;

(4) Dùng biến S nhạp vào giá trị của bán kính R là sai

Sửa: ......;Readln(R);

(5) Câu lệnh gán thiếu dấu ":"

Sửa: S:=R*R*Pi;

(3),(6),(7) đúng

Bài 2:

Program baitap;

Uses crt;

Var dongia,sl:real;

Begin

Clrscr;

Write('Nhap don gia:');

Readln(dongia);

Write('Nhap so luong:');

Readln(sl);

Writeln('So tien can thanh toan:', dongia*sl+15000:9:2,'(dong)');

Readln

End.