Uses    crt;
Var     a: Longint;
Begin
    clrscr;
    write('a = ');
    readln(a);
    if ODD(a) then 
        if (a mod 5 = 0) then writeln(a,' la so le va chia het cho 5')
        else writeln(a,' la so le nhung khong chia het cho 5')
    else writeln(a,' khong la so le');
    readln;
End.
 

uses crt;
var a:real;
begin
clrscr;
write('Nhap so a can kiem tra: ');readln;
if (a mod 5) = 0 then 
write('So ',a,' chia het cho 5. ')
else write('So ',a,' khong chia het cho 5. ');
readln;
end.