Составить Паскаль-программу, содержащую процедуру для вычисления функции:

program znanija_12709640;  var      x :real;      r: real;begin     write('Input x:');     read(x);     if (x > 0) then        r := Sin(x)     else        if  (x = 0) then            r := 0.5        else             r := Cos(x);    writeln(r);end.