program Bai;
Uses crt;
var a: integer;
begin
write('Nhap a='); readln(a);
if a mod 5=0 then writeln(a, ' chia het cho 5')
else writeln(a, ' khong chia het cho 5');
readln
end.
..........................................
program So_Le;
uses crt;
var a: integer;
begin
write('Nhap a='); readln(a);
if a mod 2=0 then writeln(a, 'La so chan')
else writeln(a, 'La so le');
readln
end.