2.

program ct2;
uses crt;
var a,b:integer;
begin
  clrscr;
  writeln ('Nhap a, b '); readln(a,b);
  writeln ('Tich cua a va b la: ',a*b);
  readln;
end.

3.

program ct3;
uses crt;
var a,b:integer;
    P,S:Qword;
begin
  clrscr;
  writeln ('Nhap chieu dai, chieu rong cua HCN (cm): '); readln(a,b);
  P:=(a+b)*2;S:=a*b;
  writeln ('Chu vi HCN la: ',P,'cm'); writeln('Dien tich HCN la: ',S,'cm2');
  readln;
end.

4.

program ct4;
uses crt;
var a,b,c:integer;
begin
  clrscr;
  writeln ('Nhap a,b,c: '); readln(a,b,c);
  writeln ('Trung binh cong cua a, b, c, la: ',(a+b+c)/3:5:2); 
  readln;
end.

5.

program ct5;
uses crt;
var soluong,DonGia,phiDV: Qword;
begin
    clrscr;
    writeln('Nhap so luong mat hang (VNĐ):'); readln(soluong);
    writeln('Nhap don gia mat hang (VNĐ):'); readln(DonGia);
    phiDV:=10000;
    writeln('Thanh tien la: ',soluong*DonGia+phiDV,'đ');
    readln;
end.

6.

program ct6;
uses crt;
var x,y: Qword;
begin
    clrscr;
    writeln('Nhap so luong quyen vo can mua:'); readln(x);
    writeln('Nhap so luong but can mua:'); readln(y);
    writeln('Tong tien la: ',x*5000+y*3000,'đ');
    readln;
end.

_________

#Duahauvn

#HocTot

#ThiTot

Câu 2;

program tin_hoc_8;

uses crt;

var a,b,T:integer;

begin

clrscr;

write('nhap so nguyen a,b');

read(a,b);

T:=a*b;

writeln('tich hai so nguyen la' ,T:4:2);

readln

end.

Câu 3

program hinh_vuong;
uses crt;
var a,chuvi,dt:word;
begin
clrscr;
write('nhap do dai canh cua hinh vuong:');
readln(a);
chuvi:=a*4;
dt:=a*a;
writeln('chu vi hinh vuong la:',chuvi);
write('dien tich hinh vuong la:',dt);
readln;
end.

Câu 4

Program trung_binh_cong;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap so a , b , c =' ,); readln(a,b,c):

writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3);

readln;

end.

Câu 5 :

Mình k biết làm

Câu 6:

Minh k biết làm