Вычислить значения z

[leshiy_777]

Помогите написать программу, заранее благодарен

[Stilet]

var x:real;
begin
x:=0.6;
while x<=4.8 do begin
 if x<=1 then z:=ln(x)*sin(x-pi/4) else z:=ln(x)*sin(x-pi) ;
 if z>0 then writeln(x:5:2,x:20:2);
 x:=x+0.8;
end; readln;
end.

[Stilet]

var x:real;
begin
x:=0.6;
while x<=4.8 do begin
 if x<=1 then z:=ln(x)*sin(x-pi/4) else z:=ln(x)*sin(x-pi) ;
 if z>0 then writeln(x:5:2,x:20:2);
 x:=x+0.8;
end; readln;
end.

[ZX Spectrum-128]

x:=0.6;
while x<4.8 do
begin
 if x<=1 then
  a:=pi/4
 else
  a:=pi;
 z:=ln(x)*sin(x-a);
 if z>0 then
  writeln(z);
 x:=x+0.8;
end;