câu 1

var a,b,c,s:real;

begin

 writeln('nhap lan luot 3 so');readln(a,b,c);      {nhap gia tri ba so}

 s:=a*a/((2*b+c)*2);      {gan bien s la gia tri bieu thuc}

 writeln(s);  {in gia tri bien s ra man hinh}

 readln;

end.

câu 2

var canh, chuvi, dientich:real;

begin

 writeln('nhap do dai canh');readln(canh);   {nhap do dai canh}

 chuvi:=canh*4; {tinh chu vi hinh vuong}

 dientich:=canh*canh {tinh dien tich hinh vuong}

writeln('dien tich la:',dientich); {in dien tich hinh vuong ra man hinh}

writeln('chu vi la:',chuvi); {in chu vi hinh vuong ra man hinh}

 readln;

end.

1.

program btsydn;

uses crt;

  var a, b, t: real;

begin

           clrscr;

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

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

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

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

           write('Gia tri = ', t);

           readln

end.

2.

program btsydn;

uses crt;

  var a: real;

begin

           clrscr;

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

           writeln('Chu vi = ', a*4);

           writeln('Dien tich = ', a*a);

           readln

end.