Для произвольного значения аргументов вычислить значения функции на PascalABC:

f = {k+корень m, если m>0;
{k/m+2, в противном случае

var k,m:single;

begin

 write('Введиет число K= '); readln(k);

 write('Введите число M= '); readln(m);

 if m>0 then writeln('f=(',k+sqrt(m):0:2,')')

 else writeln('f=(',k/m+2:0:2,')');

end.