Em hãy tìm ra lỗi sai trong các đoạn chương trình sau

- Readln(a); => a là hằng giá trị của a không thể thay đổi trong quá trình thực hiện chương trình

- Writeln(d - 3); =>  d thuộc kiểu boolean => không cùng kiểu dữ liệu với 3 => d - 3 => sai

- writeln(b + x); => chưa nhập giá trị cho biến x

- Writeln(c - 3); => c thuộc kiểu kí tự => không cùng kiểu dữ liệu với 3  => c - 3 => sai

- writeln(x div 3); => x thuộc kiểu thực => div không thực hiện được với kiểu thực

- writeln(x >= b); => chưa nhập giá trị cho biến x không thể thực hiện so sánh

Program chuongtrinh;

Const a=20;

Var b: integer;

x:real;

c: char;

d: boolean;

Begin

Readln(a);

Writeln(d-3);

writeln(a);

writeln(b+x); Writeln(c-3); writeln(x div 3); writeln(x>=b); Writeln(a>19);

End.