Написать программу на языке паскаль, которая вычисляет значение заданной в таблице функции y . вывести в окне программы результаты для трех вариантов переменной x.

Program b1; var y,x1,x2,x3: real; begin writeln('write x1,x2,x3 : '); readln(x1,x2,x3); if x1> 4 then writeln(sqrt(abs(sin(sqr(x1)-1)/cos(sqr(x1)-: 10: 20); if x1> =0 then if x1< =4 then writeln(-2*x1: 10: 20); if x1< 0 then writeln(exp(cos(x1)): 10: 20); if x2> 4 then writeln(sqrt(abs(sin(sqr(x2)-1)/cos(sqr(x2)-: 10: 20); if x2> =0 then if x2< =4 then writeln(-2*x2: 10: 20); if x2< 0 then writeln(exp(cos(x2)): 10: 20); if x3> 4 then writeln(sqrt(abs(sin(sqr(x3)-1)/cos(sqr(x3)-: 10: 20); if x3> =0 then if x1< =4 then writeln(-2*x3: 10: 20); if x3< 0 then writeln(exp(cos(x3)): 10: 20); readln(x1); end.

Var   x: double; begin   x: =102;   while x< =999 do begin writeln(x,' ',exp(ln(x)/3)); x: =x+3 end; end. результат выполнения программы: 102 4.67232872835526 105 4.71769398031653 108 4.7622031559046 111 4.80589553370533 114 4.84880758583988 117 4.89097324650875 120 4.93242414866094 123 4.97318983326859 126 5.01329793496458 129 5.05277434720856 132 5.09164336965949 135 5.12992784003009 138 5.16764925236362 141 5.2048278633942 144 5.24148278841779 147 5.27763208790408 150 5.31329284591305 . . 960 9.86484829732188 963 9.87511349546425 966 9.8853573964768 969 9.89558011047944 972 9.90578174668388 975 9.91596241340387 978 9.92612221806536 981 9.93626126721644 984 9.94637966653718 987 9.95647752084936 990 9.96655493412597 993 9.97661200950066 996 9.98664884927706 999 9.99666555493786

Насколько я понял нужно не всю дату, а только 2006 год написать. вот алгоритм, который это делает: использовать робот алг нач | закрасить вверх закрасить вверх закрасить вверх вверх закрасить вправо закрасить вправо закрасить вниз закрасить вниз закрасить влево закрасить вправо вниз вниз закрасить влево закрасить вправо вправо вправо | закрасить вверх закрасить вверх закрасить вверх закрасить вверх закрасить вправо закрасить вправо закрасить вниз закрасить вниз закрасить вниз закрасить вниз закрасить влево закрасить вправо вправо вправо | закрасить вверх закрасить вверх закрасить вверх закрасить вверх закрасить вправо закрасить вправо закрасить вниз закрасить вниз закрасить вниз закрасить вниз закрасить влево закрасить вправо вправо вправо | закрасить вверх закрасить вверх закрасить вверх закрасить вверх закрасить вправо закрасить вправо закрасить вниз вниз закрасить влево закрасить вправо вниз закрасить вниз закрасить влево закрасить вправо вправо вправо кон