B1:

uses crt;

var a,b,c,S:integer;

begin

write('nhap diem van:');readln(a);

write('nhap diem anh:');readln(b);

write('nhap diem toan:');readln(c);

S:=(a*2+b*2+c)/5;

writeln('Diem trung binh cua 3 mon do la:',S);

readln;

end.

B2:

uses crt;

var A,b,c,d:integer;

begin

write('nhap b:');readln(b);

write('nhap c:');readln(c);

write('nhap d:');readln(d);

A:=(b+c)/d;

writeln('KQ la:',A);

readln;

end.

B3:

uses crt;

var a,b,c,d,e,S:integer;

begin

write('nhap chieu cao cua bn 1:');readln(a);

write('nhap chieu cao cua bn 2:');readln(b);

write('nhap chieu cao cua bn 3:');readln(c);

write('nhap chieu cao cua bn 4:');readln(d);

write('nhap chieu cao cua bn 5:');readln(e);

S:=(a+b+c+d+e)/5;

writeln('Chieu cao trung binh la:',S);

readln;

end.

B4:

uses crt;

var a,b,c,S:integer;

begin

write('nhap chieu dai:');readln(a);

write('nhap chieu rong:');readln(b);

S:=a*b;

writeln('Dien tich la:',S);

readln;

end.