uses crt;
var i:integer;
begin
clrscr;
write('Nhap so tu nhien bat ky: '); readln(i);
if (10<=i) and (i<=20) and (i mod 5 = 0) then 
write('so vua nhap la so nam trong khoang tu 10 toi 20 va chia het cho 5')
else write('so vua nhap khong phai la so nam trong khoang tu 10 toi 20 va chia het cho 5');
readln;
end.

uses crt;
var i,n:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
        if (n>=10) and (n<=20) then
                begin
                        writeln(n,' la so trong khoang tu 10 den 20');
                        if n mod 5=0 then write(n,' chia het cho 5');
                end
        else writeln(n,' khong phai la so trong khoang tu 10 den 20');
readln
end.