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

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.