Question

Giúp mình tìm ra các lỗi sai và sữa lại cho đúng nha và giải luôn câu 5 giúp mình,mình cảm ơn

Answer 1

uses crt;

var n:integer;

begin

clrscr;

readln(n);

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln;

end.