Bài 3 :

uses crt;

var a, cv, s : integer;

begin

clrscr;

write('nhap do dai canh hinh vuong :');readln(a);

cv := a * 4;

s := a * a;

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

writeln('dien tich hinh vuong : ', s);

readln

end.

Bài 4 :

uses crt;

var a, b, cv, s : integer;

begin

clrscr;

write('nhap chieu dai hinh chu nhat :');readln(a);

write('nhap chieu rong hinh chu nhat :');readln(b);

cv := (a + b) * 2;

s := a * b;

writeln('chu vi hinh chu nhat :', cv);

writeln('dien tich hinh chu nhat : ', s);

readln

end.

Làm code pascal nhé:

Bài 3: 

var a,s,cv:integer;

begin

write('a:');readln(a);

cv:=a*4;

write('chuvihinhvuongla:',cv);

s:=a*a;

write('dientichhinhvuong:',s);

readln;

end.

clrscr có hoặc không có đều được vì là lệnh xoá mỗi khi chạy chương trình.

writeln:lệnh xuống dòng ghi cũng được nhưng trong bài này không ghi cũng được

Bài 4:

var a,b,s,cv:integer;

begin

write('a,b:');readln(a,b);

cv:=(a+b)*2;

write('chuvihinhchunhat:',cv);

s:=a*b;

write('dientichhinhchunhat:',s);

readln;

end.

writeln:lệnh xuống dòng ghi cũng được nhưng trong bài này không ghi cũng được