program q001;
uses crt;
const a=20.3;
var x,f:real;
begin
clrscr;
writeln('x      ','F');
x:=0.5;
while x<=2 do begin
if x>1 then f:=ln(x+1)/ln(10)
else f:=sin(2*sqrt(a*x));
writeln(x:3:4,' ',f:3:4);
x:=x+0.1;
end;
readkey;
end.

const
         h=0.2;
var
     x,y,a,b: real;
begin
         Write('a=);  Readln(a);
         Write('b='); Readln(b);
         x:=-1;
         While x<=3 do begin
                   if x<=b
                      then y:=x*x+4*x+a
                      else  
                      if x*x+4*x+b<>0 
                         then y:=1/(x*x+4*x+b);
                Writeln('x=',x:0:2,' ','y=',y:0:2);
                x:=x+h;
         end;
Readln;
end.