Câu 1: Tìm và sửa lỗi(nếu có) trong đoạn chương trình sau:

Var a, b: real

Begin

Clrscr;

Write(‘nhap a=’), read(a);

Write(‘nhap b=’); read(b);

If (a+b) := 120 then a =120-b;

Readln

End;

Câu 2: Cho biết kết quả của biến s sau đoạn chương trình sau:

a:=5;

s:=58;

If s>=70 then s:=s+2 else s:=s+a;