Модуль
modul.pas
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.
Тестирующая программа:
main.pass
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.