- Chương trình 1 :
uses crt;
var i, n : integer;
begin
clrscr;
write('Nhap so n = '); readln(n);
if n > 10 then begin i := 10;
while i <= n do begin write(i,' ');
i := i + 1; end; end;
readln
end.
- Chương trình 2 :
uses crt;
var i, n : integer;
begin
clrscr;
write('Nhap so n = '); readln(n);
if n > 10 then begin i := 10;
while i <= n do begin writeln(i);
i := i + 1; end; end;
readln
end.