Выполните сложение двух дробных чисел в Pascal ABC через while

Примерно это должно выглядеть так, есть множество видов записи.a:=7/9;b:=2/5;beginwhile a+b>0then beginc:=a+b;writeln(c);end.