Напишите какой простой модуль с разделом initialization - PascalABC.NET

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

Здравствуйте. Пожалуйста, напишите какой-нибудь простой модуль с разделом initialization. для примера необходимо. заранее спасибо.

Решение задачи: «Напишите какой простой модуль с разделом initialization»

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

unit modul;
interface
function summa(x,y:real):real;
function raznost(x,y:real):real;
procedure sravn(x,y:real);
implementation
function summa(x,y:real):real;
begin
result:=x+y
end;
function raznost(x,y:real):real;
begin
result:=x-y
end;
procedure sravn(x,y:real);
begin
if x>y then writeln('Первое число больше')
else if x<y then writeln('Первое число меньше')
else writeln('Числа равны')
end;
end.

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

Заголовок модуля - modul.
В интерфейсе модуля объявлены три функции: summa, raznost, sravn и одна процедура sravn.
В реализации функции summa происходит сложение двух чисел и результат присваивается переменной result.
В реализации функции raznost происходит вычитание двух чисел и результат присваивается переменной result.
В реализации процедуры sravn происходит сравнение двух чисел. Если первое число больше второго, то выводится сообщение Первое число больше. Если первое число меньше второго, то выводится сообщение Первое число меньше. Если числа равны, то выводится сообщение Числа равны.