Допоміжь із 7 варіантом

П0 cos ИП0 КвКор + С/П

Ввод: x С/П.

Вывод: y.

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.