<h3>
Модуль </h3>
<u>modul.pas</u>
Unit modul;
Interface
function sqr_sum(a, b:real): real;
function sqr_diff(a, b:real): real;
Implementation
function sqr_sum(a, b:real): real;
begin
sqr_sum := sqr(a) + sqr(b);
end;
function sqr_diff(a, b:real): real;
begin
sqr_diff := sqr(a) - sqr(b);
end;
end.
<h3>
Тестирующая программа:</h3>
<u>main.pass</u>
program main;
uses modul;
var a, b: real;
begin
writeln('Введите два числа: ');
readln(a, b);
writeln('Сумма квадратов двух чисел: ', sqr_sum(a, b):4:4);
writeln('Разность квадратов двух чисел: ', sqr_diff(a, b):4:4);
end.