Viết chương trình nhập số tự nhiên hợp lệ trong khoảng từ 10 đến 20. Nếu số nhập vào không hợp lệ thì yêu cầu nhập lại

Lời giải:

var a:int64;
begin
read(a);
if (a<10) or (a>20) then writeln('Nhap lai: ');
while(a<10) or (a>20) do read(a);
if (a>10) and (a<20) then writeln(' Thanh cong');
readln;
end.