ОЧЕНЬ Даны две дроби a/b и c/d (a, b, c, d – натуральные числа).ответ должен быть несократимой дробью x/y.Составить программу умножения дроби на дробь. При выполнении задания использовать подпрограмму-функцию для вычисления произведений двух пар целых чисел: ac, bd и их распечатки. Числитель произвед х=

Знаменатель произвед у=

ПАСКАЛЬ, и составить блок-схему

1)
a = int(input("Введіть 1 число: "))
b = int(input("Введіть 2 число: "))
c = int(input("Введіть 3 число: "))
d = int(input("Введіть 4 число: "))
e = int(input("Введіть 5 число: "))
f = int(input("Введіть 6 число: "))
d = int(input("Введіть 7 число: "))
q = int(input("Введіть 8 число: "))
w = int(input("Введіть 9 число: "))
z = int(input("Введіть 10 число: "))
suma = [a,b,c,d,e,f,d,q,w,z]
print('Сума введених чисел = ',sum(suma))

2)
s = 0
while True:
a = int(input("Введіть число: "))
s += a
print("Сума введених чисел: ",s)
if a == 0:
break

Program N94780249;
const
  s: longint = 0;
var
  x: longint;
  t: string;
  e: integer;
begin
  writeln('Вводите целые числа (0 - окончание ввода) : ');
  repeat
    repeat
      write('> ');
      readln(t);
      val(t, x, e);
      if e <> 0 then
        writeln('Ошибка! Повторите ввод. ')
    until e = 0;
    s += x
  until x = 0;
  if s = 0 then
    writeln('Числа не вводились. ')
  else
    writeln('Сумма введённых чисел = ', s, #10);
  write('Для завершения работы нажмите Enter...');
  readln
end.