Реализовать функцию, с помощью ветвления
g=[tex] \left \ { {{sin(2*x) if x\ \textgreater \ 0} \atop 5* x^{2} else }} ight. [/tex]

ЯЗЫК PASCAL ABC

мне выдало ошибку. Нельзя преобразовать тип real к integer

Да, код исправил

Если я правильно понял g = sin(2*x) для x>=0 иначе g = 5* x², тогда может получиться такой код:var x,g:real;begin    writeln('Введите х');readln(x);    if x>0 then g:=sin(2*x) else g:=5*sqr(x);        writeln(g);end.