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

program sin2x;beginwriteln(\' 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;beginwriteln(\' x    sin2x\');x:= 0.1;while x <= 0.6 dobeginwriteln(x: 4 : 1, sin(2*x)  : 8 : 4);x:= x + 0.1end end.