Составить алгоритм и программку вывода на экран таблицы значений y=2sinx для

program sin2x;
begin
writeln( x    sin2x);
for i: integer:= 1 to 6 do writeln(i / 10 : 4 : 1, sin(2 * (i / 10)) : 8 : 4)
end.

То же самое с внедрением цикла while:

program sin2x;
var x: real;
begin
writeln( x    sin2x);
x:= 0.1;
while x lt;= 0.6 do
begin
writeln(x: 4 : 1, sin(2*x)  : 8 : 4);
x:= x + 0.1
end
end.