Составить программу складывающую две обыкновенные дроби. Как в Pascal

var
a, b, c : Real;
begin
WriteLn('Введите a,b); ReadLn(a,b);
c:= a + b;
WriteLn('Сумма = ', c);
ReadLn;
end.