uses crt; var n:longint; begin clrscr; write('n=');readln(n); if n in [10..50] then writeln('n is in the rage [10,50]') else writeln('n is not in the rage [10,50]'); readln end.
Câu 2:
uses crt; var m,i:longint; begin clrscr; write('m=');readln(m); for i:=1 to m do if m mod i=0 then write(i,' '); readln end.
