Вычтех_6 / 1

Program sin_if;
Uses
crt;
Label
n;
Var
y, x: real;
z: string [15];
Begin
clrscr;
x:=0;
z:=' --------------- ';
writeln(z);
writeln('| x | y |');
writeln(z);
n: if x<=1.00001 then
begin
y:=sin(x);
writeln('|', x:5:2,' | ',y:5:2,'|');
x:=x+0.1;
goto n;
end
else
writeln(z);
readln;
End.