Помогите с первой задачей, пожалуйста.
pascal abc

var  k, a, x: real;  begin  readln(a, x);  if (x > 0) then    k := a  else    if (x = 0) then      k := 2 * a    else      k := a / 2;  writeln('y = ', k * k * k + tan(sqr(ln(2 * k))));end.-------------------------///Вывод значения переменной А с тремя цифрами после запятой.///Если okr = true, то округляет число, иначе отбрасывает лишние цифры.procedure WriteReal(a: real; okr: boolean);begin  if (okr) then    writeln(round(a * 1000) / 1000)  else    writeln(trunc(a * 1000) / 1000);end;begin  writeln(sin(60));  writereal(sin(60), true);  writereal(sin(60), false);end.----------------------------var  R, r_: real;-----------------------------Такого оператора в Pascal нет (в других языках, таких как Java, C# и пр. это оператор инкремента, ++, но в Pascal есть процедура procedure inc(var i: integer), делающая то же самоеinc(N);