program yura; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2=0 then writeln(x*x+(sqrt2)) else writeln(x*x*x+x) end.
В чём ошибка?
не очень понятно задание. на сколько могу судить ошибки нет.