Подпрограмма

uses crt;
type
Natur = 1..high(longInt);{натуральные числа типа longint}
Frac = record
       p:Natur; {Числитель дроби}
       q:Natur {Знаменатель дроби}
       end;
{ввод дробей}
procedure Vvod(var a,b:frac);
var i:integer;
begin
writeln('Введите числители и знаменатели двух дробей ');
writeln(' Первая дробь:');
write('  числитель=');readln(a.p);
write('  знаменатель=');readln(a.q);
writeln(' Вторая дробь:');
write('  числитель=');readln(b.p);
write('  знаменатель=');readln(b.q);
clrscr;
end;
{нахождение НОД}
function Nod(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
Nod:=a
End;
{сокращение дробей}
procedure Sokr(var a:frac);
var d:Natur;
begin
d:=Nod(a.p,abs(a.q));
a.p:=a.p div d;
a.q:=a.q div d;
end;
{вывод дробей и результата после сокращения на экран}
procedure Vyvod(var a,b,c:frac);
begin
writeln('Результвт умножения:');
c.p:=a.p*b.p;
c.q:=a.q*b.q;
Sokr(c);
writeln(a.p,'/',a.q,' * ',b.p,'/',b.q,' = ',c.p,'/',c.q);
end;
var  a,b,c:frac;
     w:char;
begin
clrscr;
randomize;
writeln('Вводите пары дробей, окончание ввода Esc');
repeat
clrscr;
Vvod(a,b);
Vyvod(a,b,c);
readln;
writeln('Введите следующую дробь или Esc для выхода');
w:=readkey;
until w=#27;
end.