Допоміжь із 7 варіантом
Program mm; var a,x: integer; begin uses crt; write('x'); readln(x); a:=cos(x)+sqrt(x); writeln('y= ', a:4:2); readln; {возможно readkey, зависит от Паскаля} end.
П0 cos ИП0 КвКор + С/П Ввод: x С/П. Вывод: y.