Bài 1: (cái này mình ko giỏi cho lắm nên có gì sai sót mong bạn bỏ qua nhé)

a, ...............x:= x+1.................x:= x+2;

b, If Max <= b then Max:= b;

c, If a >= b then Max:= a..........;

d, x:= x + 1;

e, Var s,r: integer;

Bài 2:

program Phan_loai;

uses crt;

var a: real;

begin clrscr;

writeln('Nhap a'); readln(a);

if a >= 8.0 then writeln('Xep loai gioi');

if 6.5 <= a < 8.0 then writeln('Xep loai kha');

if a < 6.5 then writeln('Xep loai trung binh');

readln;

end.

* Sửa lỗi sai :

a) if a <> b then x := x + 1 else x := x + 2;

b) if max < b then max := b;

c) if a > b then max := a else max := b;

d) x := x + 1;

e) var s, r : integer;

f) const a = 10;

g) var hs4 : integer;

h) const a1 = 15.5;