Ветвление. Вычислить функцию.

[sh1p]

Привет! Помогите, пожалуйста, написать 2 программы!
№1
Написать программу, осуществляющую вычисление функции. Все исходные значения запрашиваются у пользователя. Результат вычислений вывести на экран.

[Naeel Maqsudov]

Код: Выделить всё

write('Введите X и Y через пробел:'); readln(x,y);
if x<y 
  then f:=y/x
  else if x=y then f:=x+y
    else f:=x/y;
writeln('f(x)=',f);