1)        Program phepchia;

2)        Uses crt;

3)        Var a, b, c, d : Real;

4)        Begin

5)        Clrscr;

6)        Write('nhap 2 so a va b');Readln(a,b);

7)        d := a mod b;

8)        c := a div b;

9)        Write('Ket qua cua phep chia lay phan nguyen va chia lay phan du la', c, d);

10)      End.

Dòng 3 lỗi kiểu dữ liệu trong real không có mod và div => sửa thành integer

Dòng 6 thiếu dấu ngoặc kép, chưa có lệnh readln để nhập dữ liệu từ bàn phím

Dòng 9 thứ tự kết quả chưa đúng, kết quả phép chia nguyên đứng trước, kết quả phép chia dư đúng sau

Trình tự:

9-1-3-2-5-4-6-7-8-10

Sửa lỗi:

3,var a,b,c,d:integer;

4,write('nhap a:');readln(a);

write('nhap b:');readln(b);

6, c:=a div b;