Cho đoạn chương trình Free pascal sau đang còn lỗi cần kiểm tra lỗi và sửa lỗi. Em hãy thực hiện kiểm tra và sửa lỗi để chạy chương trình Progam kiemtra; Var x, y, t: interger Begin; Write(x=); Readln(x) Wite(‘y=’); Readln(y) t=a+b Write(‘t=’s) Readln End

Progam kiemtra;

=> sai từ khóa program

Var x, y, t : interger

=> thiếu dấu chấm phẩy cuối lệnh

=> sai kiểu dữ liệu

Begin;

=> dư dấu chấm phẩy

Write(x=);

=> thiếu dấu nháy đơn

Readln(x)

=> thiếu dấu chấm phẩy cuối lệnh

Readln(y)

=> thiếu dấu chấm phẩy cuối lệnh

Wite(‘y = ’);

=> sai từ khóa write

t = a + b

=> sai dấu gán và thiếu dấu chấm phẩy cuối lệnh

=> biến a và b chưa được khai báo

Write(‘t = ’s)

=> sai tên biến, thiếu dấu phẩy ngăn cách xâu kí tự với biến, thiếu dấu chấm phẩy

End

=> thiếu dấu chấm

Chương trình hoàn chỉnh :

Program kiemtra;

Var x, y, t : integer;

Begin;

Write('x = ');

Readln(x);

Write('y = ');

Readln(y);

t := x + y;

Write('t = ', t);

Readln

End.

mk sửa lại nha:

Program kiemtra;
Var x, y, t: integer;
Begin;
Write('x=');
Readln(x);
Write('y=');
Readln(y);
t:=x+y;
Write('t=',t);
Readln
End.