program chu_vi_hinh_thang;

uses act;

var a,b,c,d,e: real;

begin

clrscr;

write('nhap canh thu nhat ;');readln(a);

write('nhap canh thu hai ;');readln(b);

write('nhap canh thu ba ;');readln(c);

write('nhap canh thu tu ;');readln(d);

e:=a+b+c+d;
write('chu vi hinh thang la :',e);
readln;

end

Thuật toán tính N số chẵn:

B1: nhập N      a<--0;

B2: chạy từ 1 đến N, nếu i mod 2=0 thì đó là số chẵn, nếu là số chẵn thì a<--a+1;

B3:Xuất kết quả ra màn hình

B4:Kết thúc

Vt chg trình tính chu vi hình thg:

uses crt;

var a,b,S:integer;

begin

write('nhap canh day lon:');readln(a);

write('nhap canh day be:');readln(b);

S:=(a+b)*2;

writeln('Chu vi la:',S);

readln;

end.