с информатикой. Тема:Программирование циклов. Исправьте ошибки.Учитель говорит что Перепутан порядок операторов, он идёт if then else.
2) На f будет ругаться.
3)не пересчитывается новое значение f и не выводиться в положительной ветке исправить
var
x:integer
begin
then read(x);
f:=2·sin(2*x)
if f>0 begin
x=6+x else
writeln(f);
end