DenMal_4

Var
    Q1_1, Q2_1, Z1_1, Z2_1: Real;
    Q1_2, Q2_2, Z1_2, Z2_2: Real;
    S1, S2: Real;

Procedure CircleArea(Var aS: Real; aQ1, aQ2, aZ1, aZ2: Real);
Begin
    aS:= PI *
      Sqr((aZ1 - aQ1) * (aZ1 - aQ1) + (aZ2 - aQ2) * (aZ2 - aQ2)) *
      Sqr((aZ1 - aQ1) * (aZ1 - aQ1) + (aZ2 - aQ2) * (aZ2 - aQ2));
End;

Function CircleArea(aQ1, aQ2, aZ1, aZ2: Real): Real;
Begin
    CircleArea:= PI *
      Sqr((aZ1 - aQ1) * (aZ1 - aQ1) + (aZ2 - aQ2) * (aZ2 - aQ2)) *
      Sqr((aZ1 - aQ1) * (aZ1 - aQ1) + (aZ2 - aQ2) * (aZ2 - aQ2));
End;

Begin
    WriteLn('Введите данные первого круга.');
    Write('Z1: '); ReadLn(Z1_1); Write('Z2: '); ReadLn(Z2_1);
    Write('Q1: '); ReadLn(Q1_1); Write('Q2: '); ReadLn(Q2_1);
    WriteLn('Введите данные второго круга.');
    Write('Z1: '); ReadLn(Z1_2); Write('Z2: '); ReadLn(Z2_2);
    Write('Q1: '); ReadLn(Q1_2); Write('Q2: '); ReadLn(Q2_2);
    S1:= CircleArea(Q1_1, Q2_1, Z1_1, Z2_1); {Если функция}
    S2:= CircleArea(Q1_2, Q2_2, Z1_2, Z2_2); {Если функция}
    CircleArea(S1, Q1_1, Q2_1, Z1_1, Z2_1); {Если процедура}
    CircleArea(S2, Q1_2, Q2_2, Z1_2, Z2_2);  {Если процедура}
    WriteLn('Площадь первого круга: ', S1:5:5);
    WriteLn('Площадь второго круга: ', S2:5:5);
    If S1 < S2 Then
      WriteLn('Первый круг имеет меньшую площадь')
    Else If S1 = S2 Then
      WriteLn('Оба круга имеют одинаковую площадь')
    Else
      WriteLn('Второй круг имеет меньшую площадь');
    ReadLn;
End.