Câu 1:

uses crt;
var cdai, crong: integer;
begin
    clrscr;
    write('Nhap chieu dai: ');
    readln(cdai);
    write('Nhap chieu rong: ');
    readln(crong);
    writeln('Chu vi la: ',(cdai+crong)*2);
    write('Dien tich la: ',cdai*crong);
    readln
end.

Câu 2: 

uses crt;
var bankinh: integer;
begin
    clrscr;
    write('Nhap ban kinh: ');
    readln(bankinh);
    writeln('Chu vi la: ',bankinh*2*3.14:0:3);
    write('Chu vi la: ',bankinh*bankinh*3.14:0:3);
    readln
end.

Bài 3: 

uses crt;
var ttb, dongia, somsd: integer;
begin
    clrscr;
    write('Nhap tien thue bao: ');
    readln(ttb);
    write('Nhap don gia 1 MB: ');
    readln(dongia);
    write('Nhap so MB da su dung: ');
    readln(somsd);
    write('So tien phai tra: ',ttb+(dongia*somsd));
    readln
end.

Câu 4:

uses crt;
var sogbt, sogng: integer;
begin
    clrscr;
    write('Nhap so gio lam viec binh thuong: ');
    readln(sogbt);
    write('Nhap so gio lam viec ngoai gio: ');
    readln(sogng);
    write('Tien cong lao dong la: ',sogbt*15000+sogng*30000);
    readln
end.

Câu 5: Chưa đủ đề bài

Bài 1:

use crt;

var a,b,c,s:integer;

begin

clrscr;

writeln('nhap chieu dai:');

readln(a);

writeln('nhap chieu rong:');

readln(b);

c:=(a+b)*2;

write('chu vi cua hinh chu nhat do la:',c:4:2);

s:=a*b;

write('dien tich cua hinh chu nhat do la:',s:4:2);

readln;

end.

Bài 2:

use crt;

var a,c,s:integer;

begin

clrscr;

writeln('nhap ban kinh hinh tron:');

readln(a);

c:=a*2*3,14;

write('chu vi hinh tron la:',c:4:2);

s:=a*a*3,14;

write('dien tich hinh tron la:',s:4:2);

readln;

end.

Mình chỉ giúp bạn được hai bài thôi

Mong bạn thông cảm

#huy