B1:

uses crt;

var a,b,c:integer;

begin

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

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

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

writeln(a);

writeln(b);

writeln(c);

readln;

end.

B2

uses crt;

var a,b,c,P,S,V,D:integer;

begin

clrscr;

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

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

write('nhap canh hinh vuong:');readln(c);

P:=(a+b)*2;

S:=a*b;

V:=c*4;

D:=c*c;

writeln('Chu vi hinh chu nhat la:',P);

writeln('Dien tich hinh chu nhat la:',S);

writeln('Chu vi hinh vuong la:',V);

writeln('Dien tich hinh vuong la:',D);

readln;

end.

Câu `19`

Uses crt;

Var a,b,c: real;

Begin

Clrscr;

Write('Nhap a,b,c:');

Readln(a,b,c);

Writeln('Tong cua ba so do:',a+b+c);

Readln

End.

Câu `21`

Hình chữ nhật:

uses crt;
var a,b:real;
function cv(x,y:real):real;
begin
   cv:=(x+y)*2;
end;
function dt(x,y:real):real;
begin
   dt:=a*b;
end;
begin
   write('Nhap a: '); readln(a);
   write('Nhap b: '); readln(b);
   writeln;
   write('Chu vi hinh chu nhat la: ',cv(a,b):4:2);
   writeln;
   write('Dien tich hinh chu nhat la: ',dt(a,b):4:2);
   readln
end.

Hình vuông:

Uses crt;
Var s, p, a: longint;
Begin
Clrscr;
Write('Nhap canh a = '); readln(a);
s:=sqr(a);
p:=a*4;
Writeln('Dien tich la: ',s:8:2);
Writeln('Chu vi la: ',p:8:2);
Readln
end.