Bài 1:

var

          a:integer;

begin

          write('Canh hinh vuong: ');readln(a);

          writeln('Chu vi hinh vuong la: ',a*4);

          write('Dien tich hinh vuong la: ',a*a);

          readln;

end. 

MẤY BÀI NÀY MÌNH LÀM TẮT LUÔN NHA

Bài 2:

Var

        a,b:integer;

begin

        write('Nhap chieu dai, chieu rong: ');readln(a,b);

       writeln('Chu vi hinh chu nhat: ',(a+b)*2);

       write('Dien tich hinh chu nhat: ,a*b);

       readln;

end.

Bài 3: MÌNH CHO VẬN TỐC VÀ THỜI GIAN LÀ GIÁ TRỊ NGUYÊN NHÉ!

Var

          v,t:integer;

begin

          write('Nhap van toc: ');readln(v);

          write('Nhap thoi gian: ');readln(t);

          write('Quang duong AB la: ',v*t,' km');

          readln;

end.

BẠN CHẠY CHƯƠNG TRÌNH XEM BÀI 3 ĐÚNG KHÔNG NHÉ!

CHÚC BẠN HỌC TỐT :))

Bài tập 1 :

uses crt;

var a : integer;

begin

clrscr;

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

writeln('Chu vi hinh vuong = ', a * 4);

writeln('Dien tich hinh vuong = ', a * a);

readln

end.

Bài tập 2 :

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap chieu dai va rong = '); readln(a, b);

writeln('Chu vi = ', (a + b) * 2);

writeln('Dien tich = ', a * b);

readln

end.

Bài tập 3 :

uses crt;

var v, t : integer;

begin

clrscr;

write('Nhap van toc = '); readln(v);

write('Nhap thoi gian = '); readln(t);

write('Quang duong = ', v * t);

readln

end.