Program BTH; Uses Crt; var a,b,c,d:longint; procedure BTH; Begin d:=a*b*c; end; Begin clrscr; Write('Nhap chieu dai: ');readln(a); Write('Nhap chieu rong: ');readln(b); Write('Nhap chieu cao: ');readln(c); BTH; Write('The tich hinh hop chu nhat la: ',d); readln; End.
Chu vi hình tròn:
Program BTH; uses crt; var a:longint; b:real; procedure BTH; begin b:=a*a*pi; end; Begin Clrscr; Write('Nhap ban kinh: ');readln(a); BTH; Write('Chu vi hinh tron la: ',b:4:2); readln; End.
