uses crt;
var n,dv:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dv:=n mod 10;
if dv=5 then writeln('Co')
else writeln('Khong');
readln;
end.
Program HOC24;
var n: integer;
begin
write('Nhap so nguyen : '); readln(n);
n:=n mod 10;
if n=5 then write('So nay co chu so tan cung la 5') else write('So khong nay co chu so tan cung la 5');
readln
end.
Mua máy mới cho lẹ nha phiên bản mới cho lẹ