* Cú pháp khai báo lệnh lặp While...do 

Cú pháp:  While <Điều kiện>  DO  <Câu lệnh>

Ví dụ: Viết chương trình nhập vào số nguyên dương N, in ra ước số lớn nhất của số N (khác N).

     Var  n, i : integer;

     Begin

          Write(‘Nhập số n = ‘);

          Readln(n);

          i := n – 1;

          While  n  mod  i <> 0  do

              i := i – 1;

          Writeln(‘Ước số lớn nhất của số ‘, n , ‘ là : ‘, i);

          Readln;

     End.

* Cú pháp khai báo lệnh lặp For...to

- Cú pháp: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Ví dụ:

       for i:= 1 to 5 do write('Tin hoc');

CHÚC BẠN HỌC TỐT !!!

For <biến đếm >:=<giá trị đầu >to < giá trị cuối >do<câu lệnh>;

While <điều kiện> do<câu lệnh>;

vd:

var i,n,x : integer;

begin

writeln(' nhap n');readln(n);

x:=1;

For i:=1 to n do 

                       begin

                                 while x<n do x:=x+1;

                       end;

readln;

end.