Bài 1:

Program dien_tich;
Uses crt;
Var a, cv : integer;
Begin
Clrscr;
Write('Nhap do dai canh hinh vuong :');readln(a);
cv := a*4;
Writeln('Chu vi hinh vuong  la :', cv);
Readln
End.

Bài 2 :

Thuật toán :

Bước 1 : nhập số n;
Bước 2 : S ← 0; i ← 0;
Bước 3 : nếu i > n thì chuyển tới bước 5;
Bước 4 : i ← i  + 1 ; s ← s  + 1/i ;
Bước 5 : in ra màn hình giá trị S và kết thúc

câu 12:

uses crt;

var a,b: integer;

s: real;

begin

clrscr;

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

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

cv:=(a+b)*2;

writeln ('chu vi la: ',cv:1:2);

readln;

end.

câu 13:

b1: nhập n

b2: i:=i+1;

b3: nếu i>n thì chuyển sang bước 5 

b4: s:=s+(1/i);

b5: xuất kết quả ra màn hình và kết thúc thuật toán