uses crt;

var n: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

if n>10 then

begin

Write ('Nhap sai! Hay nhap lai n=') Readln (n);

end;

readln;

end.

C1: nhập n, n > 10 thì yêu câu nhập lại,

hoạt động nhập giá trị cho n được lặp tới khi điều kiện n > 10 sai thì kết thúc

uses crt;
var n: integer;
begin
    clrscr;
    write('nhap n: '); readln(n);
    while n>10 do
        begin
            write('Nhap sai! Hay nhap lai n=');
            readln(n);
        end;
end.

C2: nhập n, n > 10 thì yêu cầu nhập lại, hoạt động nhập giá trị cho n chỉ thực hiện 1 lần, tức là lần đầu nhập số > 10 thì yêu cầu nhập lại, nhưng lần 2 nhập số > 10 thì cũng không yêu cầu nhập lại nữa

uses crt;
var n: integer;
begin
    clrscr;
    write('nhap n: '); readln(n);
    if n>10 then
        begin
            write('Nhap sai! Hay nhap lai n=');
            readln(n);
        end;
end.