viết chương trình nhập tính diện tích và chu vi hình vuông với chiều dài cạnh a được nhập từ bàn phím

2 câu trả lời

uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

program bai_giai;
uses crt;
var a:longint;
begin
 clrscr;
  write('nhap canh cua hinh vuong:');readln(a);
  writeln('chu vi:=',a*4);
  write('dien tich:',a*a);
 readln;
end.