лабораторная работа / Текст лабы 3

Program lab_33;
Const h=0.2;a=20.3;
Var x,y,xo,xk,d:real;
n,i:byte;
Begin
Writeln ('Aaaaeoa xo,xk');
Read (xo,xk);
Writeln ('Oaaeeoa ooieoee y(x)');
Writeln (' x y(x) ');
x:=xo;
While x<=xk do
Begin
if x>1 then y:=0.4343*Ln(x+1)
else if x<=1 then y:=Sqr (sin(sqrt (abs (a*x))));
Writeln(x:6:3,' ',y:6:3);
x:=x+h;
end;
End.


Ответы
х=0.5, y(x)=2

x y(x)
0.500 0.002
0.700 0.345
0.900 0.820
1.100 0.322
1.300 0.362
1.500 0.398
1.700 0.431
1.900 0.462