Question

Nhập vào 2 số nguyên a, b . Nếu a còn nhỏ hơn b thì yêu cầu người dùng nhập lại a lớn hơn hoặc bằng b .

Answer 1

uses crt;

var a,b:integer;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

until a>=b;

readln;

end.