Помогите написать систему уровнений в паскале

Question

Ed · Accepted Answer

Это не система уравнений, а простая функция. 
if (a < b) then x := a / b-1 else if (a = b) then x := 25-a else x :+ (b-5) / a;

Sergey · Answer

Сначала русскому научись… «Уровнений»!! ! 
 
if a < b then x := a / b - 1 else if a > b then x := (b - 5) / a else x := 25 - a;

Эдуард · Answer

Ну, например, так: if a < b then x : = a / b - 1 else if a = b then x : = 25 - a else x : = ( b - 5 ) / a ;