Пример программы, выполняющей сложение двух дробных чисел с помощью цикла while в Pascal ABC:

program AddFractions;
var
num1, den1, num2, den2, sumNum, sumDen: Integer;
begin
writeln('Enter the first fraction numerator: ');
readln(num1);
writeln('Enter the first fraction denominator: ');
readln(den1);
writeln('Enter the second fraction numerator: ');
readln(num2);
writeln('Enter the second fraction denominator: ');
readln(den2);
sumNum := num1 * den2 + num2 * den1;
sumDen := den1 * den2;
writeln('The sum of the fractions is: ', sumNum, '/', sumDen);
end.

Эта программа запрашивает у пользователя два дробных числа (числитель и знаменатель для каждого), затем находит и выводит их сумму в виде дроби.