program tim_so_lon_hon;
uses crt;
var x,y:real;
begin
clrscr;
write['nhap so x'];
readln[x];
write['nhap so b'];
readln[b];
if a
program tim_so_lon_hon;
uses crt;
var x,y:real;
begin
clrscr;
write['nhap so x'];
readln[x];
write['nhap so b'];
readln[b];
if a