Bài 1:

uses crt;

  var hoten: string;

    z, x, y, o, t: real;

begin

  clrscr;

  write('Nhap ho va ten: '); readln(hoten);

  write('Nhap z = '); readln(z);

  write('Nhap x = '); readln(x);

  write('Nhap y = '); readln(y);

  write('Nhap o = '); readln(o);

  t:=z*x*y*o;

  writeln('Ho va ten ban la: ', hoten);

  writeln('Tich = ', t:1:0);

  readln

end.

Bài 2:

uses crt;

  var a, b, c h, cv, s: real;

begin

  clrscr;

  write('Nhap a = '); readln(a);

  write('Nhap b = '); readln(b);

  write('Nhap c = '); readln(c);

  write('Nhap h = '); readln(h);

  cv:=a+b+c;

  s:=(a*h)/2;

  writeln('Chu vi = ', cv:1:0);

  writeln('Dien tich = ', s:1:0);

  readln

end.

Bài 1.

Uses crt;

Var z, x, y, o: real;

Begin

     Clrscr;

     Write('Nhap z = '); readln(z);

     Write('Nhap y = '); readln(y);

     Write('Nhap x = '); readln(x);

     Write('Nhap o = '); readln(o);

     Writeln('Tich cua 4 so do la: ',z*x*y*o:4:2);

Readln

End.

Bài 2.

Uses crt;

Var a, b, c, p, s: integer;

Begin

     Clrscr;

     Write('Nhap a = '); readln(a);

     Write('Nhap b = '); readln(b);

     Write('Nhap c = '); readln(c);

     p:=a+b+c;

     s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));

     Writeln('Chu vi la: ',p:4:2);

     Writeln('Dien tich la: ',s:4:2);

Readln

End.