Помогите, зарание спасибо)

Нужно написать в паскале вот эти программы:

1) y=(x+y)/ (x-y)

Если x=a+b, y=a-b

2) y=(a+b)/(c-4) , если c неравно 4

1
Я это задание на олимпиаде в прошлом году решал))

Ответы и объяснения

2014-03-18T20:53:55+04:00
var
  x, y, a, b, c : real;
begin
  read (a, b, c, x, y);

y=(x+y)/ (x-y)
y := (x + y) / (x - y);
Если x=a+b, y=a-b
if x = a + b then y := a - b;
y=(a+b)/(c-4) , если c неравно 4
if c <> 4 then y := (a + b) / (c - 4);