const h=0.1; var a, b, x, y: real; begin writeln('Otrezok [0,1] s shagom 0.1'); a:=0; b:=1; writeln('--------------------------'); writeln('| X | Y |'); writeln('--------------------------'); x:= a; while x<= b do begin y:=sin(x); writeln('|', x:9:2, ' |' , y:9:2, ' |'); x:= x+h; end; writeln('--------------------------'); end.