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

Câu 2:program Hinh_Chu_Nhat;
uses crt;
var r,d: integer; CV,DT:longint;
begin
        clrscr;
        repeat
                write('Nhap chieu dai: ');
                readln(d);
                write('Nhap chieu rong: ');
                readln(r);
        until (d<100) and (d>0) and (b>0) and (b<100);
        DT:=r*d;
        CV:=(r+d)*2;
        writeln('Chu vi hcn la: ',CV);
        write('Dien tich hcn la: ',DT);
        readln
end.
Câu 3:
program Bai_1_FoToDo;
uses crt;
var n,i :longint; S :qword;
begin
        clrscr;
        write('Nhap n: ');readln(n);
        S:=0;
        Bai 4:For i:=1 to 30 do S:=S+i
        write('Tong cac so tu 1->30 la : ',S);
        readln;
end.

Câu 1 : 

- Cú pháp lệnh lặp với số lần chưa biết trước : while <điều kiện> do <câu lệnh>;

- Hoạt động :

+ Điều kiện sẽ được tính và kiểm tra

+ Nếu điều kiện đúng thì câu lệnh sẽ được thực hiện

+ Nếu điều kiện sai thì vòng lặp sẽ dừng lại 

Câu 2 : 

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap chieu dai : '); readln(a);

write('nhap chieu rong : '); readln(b);

writeln('chu vi = ', (a + b) * 2);

writeln('dien tich = ', a * b);

readln

end.

Câu 3 :

uses crt;

var i, s : integer;

begin

clrscr;

s := 0;

for i := 1 to 30 do s := s + i;

write('s = ', s);

readln

end.

Câu 4 :

uses crt;

var n : integer; k : real;

begin

clrscr;

write('n = ');

for n := 1 to 100 do

begin

k := sqrt(n + n + 2018);

if trunc(k) = k then write(n : 4);

end;

readln

end.