laba 1 3

Program Lab13;

Uses
    System.SysUtils;

Var
    Numer1, Numer2, Denom1, Denom2, SumNumer,
    SumDenom, Nod, Nod1: Integer;
    IsCorrect: Boolean;

Begin
    Writeln('Данная программа вычисляет сумму двух рациональных дробей.');

    Repeat
        IsCorrect := True;

        Try
            Write('Введите числитель первой дроби: ');
            Readln(Numer1);
            Write('Введите знаменатель первой дроби: ');
            Readln(Denom1);
            Write('Введите числитель второй дроби:  ');
            Readln(Numer2);
            Write('Введите знаменатель второй дроби: ');
            Readln(Denom2);
        Except
            Writeln('Введенные данные не соответствуют условию. Повторите попытку.');
            IsCorrect := False;
        End;

    Until (IsCorrect);

    Numer1 := Numer1 * Denom2;
    Numer2 := Numer2 * Denom1;
    SumNumer := Numer1 + Numer2;
    SumDenom := Denom1 * Denom2;

    Nod := SumDenom;
    Nod1 := SumNumer;

    While Nod1 <> Nod Do
    Begin
        If Nod > Nod1 Then
        Begin
            Nod := Nod - Nod1;
        End
        Else
        Begin
            Nod1 := Nod1 - Nod;
        End;
    End;

    SumNumer := SumNumer Div Nod;
    SumDenom := SumDenom Div Nod;
    Writeln('Полученный результат: ', SumNumer, '/', SumDenom);

    Readln;

End.