Даны две дроби найти их сумму . (Паскаль)пожалуйста, срочно надо!

Program DROB;
uses crt;
var
a, b, c, d: integer;
s: real;
   begin
   Write(Введите числитель a1 = );
   Readln(a);
   Write(Введите знаменатель b1 = );
   Readln(b);
   Writeln;
   Write(Введите числитель с2 = );
   Readln(c);
   Write(Введите знаменатель d2 = );
   Readln(d);
   S:=(a*d+b*c)/(b*d);
   Writeln;
   write(Сумма дробей s = , s:0:3);
  
   readln;
end.    

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.