KIỂM TRA GIÁ TRỊ NHẬP VÀO BIẾN TRONG LẬP TRÌNH PASCAL

KIỂM TRA GIÁ TRỊ NHẬP VÀO BIẾN TRONG LẬP TRÌNH PASCAL
*CHECK THE VALUE OF ENTRY INTO THE PROGRAMMING PASCAL*
{doan lenh kiem tra gia tri nhap vao bang cau lenh while .. do}
n:=0;
while not ((n>0) and (n<100)) do
begin
write('nhap N:'); read(N);
end;

{doan lenh kiem tra gia tri nhap vao bang cau lenh repeat .. until}

Repeat

begin
write('nhap N:'); read(N);
end;

until (n>0) and (n<100);