Bài 1
program Tinh_tong;
uses crt;
var A,n,i: integer;
begin
clrscr;
wrietln('nhap so n');readln(n);
A:=0; i:=0;
while i<=n do begin A:=A+1; i:=i+1 end;
readln;
end.
bài 2
program Chu_vi_hcn;
uses crt;
var a,b,cv: integer;
begin
clrscr;
wrieln('Nhap chieu dai a='); readln(a);
wrietln('Nhap chieu rong b=');readln(b);
cv:=(a+b)*2;
writeln('Chu vi hcn la:'cv);
readln;
end.