Запрограммировать модуль, включающий в себя процедуры и/или функции - Pascal

Формулировка задачи:

uses crt;
var c,a:real;    
function katet(c,a:real):real;
begin
katet:=sqrt(c*c-a*a);
end;
begin 
Write('Введите гипотенузу и катет : ');readln(c,a);
writeln(katet(c,a):0:2);
end.

uses crt;
procedure prm(a,b:real;var p:real);
begin
p:=2*a+2*b;
writeln('Периметр=',p:0:2);
end;
var a,b,p:real;
begin
Write('Введите длину прямоугольника а и ширину b : ');
readln(a,b);
prm(a,b,p); 
end.

Запрограммируйте модуль, включающий в себя процедуры и/или функции, описанные выше. Используйте этот модуль в программе так, чтобы значение функции всегда появлялось синим, а значение функции зелёным цветом

Решение задачи: «Запрограммировать модуль, включающий в себя процедуры и/или функции»

Листинг программы

unit MyModule;
interface
function Katet(const c, a: Real): Real;
procedure Prm(const a, b: Real; var p: Real);
implementation
function Katet(const c, a: Real): Real;
begin
    Katet := Sqrt(Sqr(c) - Sqr(a));
end;
procedure Prm(const a, b: Real; var p: Real);
begin
    p := 2*(a + b);
    WriteLn('Периметр=', p:0:2);
end;
end.

Объяснение кода листинга программы

Название модуля: MyModule
Описание интерфейса модуля:
- Функция Katet с аргументами c и a типа Real, возвращающая значение типа Real
- Процедура Prm с аргументами a и b типа Real и переменной p типа Real
Реализация функции Katet:
- Возвращает корень из разности квадрата переменной c и квадрата переменной a
Реализация процедуры Prm:
- Вычисляет значение переменной p как удвоенную сумму переменных a и b
- Выводит на экран строку Периметр=, за которой следует значение p с точностью до двух знаков после запятой.