Program Chan_le;
uses crt;
var a: integer;
begin
clrscr;
write('nhap vao so a ='); readln(a);
if ( a mod 2 = 0 ) then write(' a la so chan ')
else
write('a la so le ');
readln;
end.
uses crt;
var a:integer;
begin
clrscr;
writeln('nhap vao so a');readln(a);
if a mod 2=0 then writeln('a là so chan')
else writeln('a la so le');
readln;end.
Chương trình:
a= int(input(‘Nhap a’))
if (a%2==0):
print (a,’la chan’)
else:
print (a,’la le’)