Program Myfunction;
Uses Crt;
Var x, 
: real;
Begin clrscr; writeln (‘Vveditj x’); readln(x);
If x <-1 then :=ln(ads(x)) else
if (x>=-1) and (x<1) then :=sin(x) else
:=cos(x);
writeln (‘x=’, x:5:2, ‘ =’, y:5:2);
readln
end.
Зауважимо, що у команді розгалуження перед службовим словом else символ “;” не ставиться.
