Tin học Hãy sửa lỗi cho đoạn chương trình sau:

[CABEOMAPU]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Procedure KT (a): integer;
Begin
If a mod 2 = 0 Then
Write('La so le')
Else Write('La so chan');
End.

 

[HauBright]

Procedure KT (a): integer; => Sai từ khúc này ạ.
Begin
If a mod 2 = 0 Then
Write('La so chan') => Khúc này.
Else Write('La so le'); => Với cả khúc này ạ.
End.

CABEOMAPU
SỬA LẠI NÈ:


Program KT;
uses Crt;
Var a: Integer;
Begin
If a mod 2 = 0 Then
Write('La so chan')
Else Write('La so le');
Readln;
End.

HOẶC:

Program KT;
uses Crt;
Var a: Integer;
Begin
Write('NHAP SO "a": '); Readln(a);
If a mod 2 = 0 Then
Write('La so chan')
Else Write('La so le');
Readln;
End.