{* Задача 345 *}

Unit ZADACH345;
Interface
Implementation
Begin
 writeln('В модуль включить подпрограмму вычисления произведения двух комплексных чисел.
В основной программе вычислить (a+ib)²+(c+id)² для заданных a, b, c, d. ');
End.

unit lmod;
interface
Function komp1(k : real;
l : real;
m : real;
n : real) : real;
Function komp2(k : real;
l : real;
m : real;
n : real) : real;
implementation
Function komp1;
Begin
  komp1 := k * m - l * n
End;
Function komp2;
Begin
  komp2 := k * n + m * l
End;
Program lab10;

Uses zadach345.pas; {* Эту строку можно удалить *}
Uses lmod; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a : real;
  b : real;
  c : real;
  d : real;
  s : real;
  p : real;
Begin
  writeln ('vvedite znachenia a+ib i c+id');
  write ('a = ');
  readln (a);
  write ('b = ');
  readln (b);
  write ('c = ');
  readln (c);
  write ('d = ');
  readln (d);
  s := komp1(a, b, a, b) + komp1(c, d, c, d);
  p := komp2(a, b, a, b) + komp2(c, d, c, d);
  writeln ('rezultat: (', s : 5 : 2, ')+(', p : 5 : 2, ')i');
  readln
End.