Hãy viết cú pháp khai báo lệnh lặp While-do và lệnh For trong Pascal. Lấy ví dụ minh hoạ cú pháp

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

Vd: 

a:=50;

While a>20 do 

     Begin

          A:=a-2;

          Writeln(‘a = ‘, a);

     End;

___________________________

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

Vd:

Dem:=0;

For i:=-32 to 766 do

     If i mod 2=0 then write(i, ‘ ‘);

____________________________

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

Vd:

S:=0;

For k:=100 downto -100 do

     If k mod 6<>0 then s:= s + (k div 2);