program oken; uses crt; var cv,dt,h: longint; begin clrscr; write('Nhap chu vi cua tam giac can: '); readln(cv); write('Nhap dien tich cua tam giac can: '); readln(dt); write('Nhap chieu cao cua tam giac can: '); readln(h); Writeln('hieu 2 dien tich va chu vi la: ',cv-dt); write('Canh ben la: ',sqrt(sqr(h)+sqr((dt*2)/h)):0:3); readln; end.