Bài 1:

program cvdt;

uses crt;

var a,b,cv,dt:integer;

begin

clrscr;

writeln('Hay nhap hai canh hinh chu nhat');readln(a,b);

cv:=(a+b)*2;

dt:=a*b;

writeln('Chu vi hinh chu nhat la ',cv);

writeln('Dien tich hinh chu nhat la ',t);

eadln;

end;

Bài 2:

program cvdt;

uses crt;

var a,dt:integer;

begin

clrscr;

writeln('Hai nhap canh hinh vuong')readln;

dt:=a*a;

writeln('Dien tich hinh vuong la ',dt);

readln;

end.

Chúc bạn học tốt!!!!!

1. program Hinh_chu_nhat;

   var S, a, b, cv:real;

   begin

   writeln ('Nhap chieu dai=');

   readln (a);

   writeln ('Nhap chieu rong=');

  readln (b);

  S:=a*b;

  cv:=(a+b)*2;

  writeln ('Dien tich hinh chu nhat la ' , S);

  writeln ('Chu vi hinh chu nhat la ' , cv:0:2);

  readln;

  end.

2. program Hinh_vuong;

   var S, a, cv:real;

   begin

   writeln ('Nhap canh cua hinh vuong=');

   readln (a);

   S:= a*a;

   cv:= a*4;

   writeln ('Dien tich hinh vuong la ' , S);

   writeln ('Chu vi hinh vuong la ' , cv);

   readln;

   end.

@ngocc_vanw

- Xin 5 sao và ' Câu trả lời hay nhất ' ạ!