Viết chương trình nhập vào 1 số nguyên a trong khoảng từ 2<a<10 .Nhập lại a nếu viết sai

2 câu trả lời

Program Hotboy ;

Uses crt;

Var a: longint;

Begin

Clrscr ;

Repeat

Write('nhap so nguyen a',a);

Until 2< a<10;

Readln

End.

program ct;

uses crt;

var a: longint;

begin clrscr;

   repeat

     write('nhap so nguyen a',a);

   until 2<a<10;

readln;

end.

Học tốt!