Разработать модуль, содержащий одну подпрограмму с двумя входными аргументами, вычисляющую сумму квадратов этих двух аргументов - Free Pascal

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

Разработать модуль, содержащий одну подпрограмму с двумя входными аргументами, вычисляющую сумму квадратов этих двух аргументов. Написать программу, обращающуюся к подпрограмме из модуля.

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

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

Uses MyUnit;
Var
  a,b: Integer;
BEGIN
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Writeln(sum(a,b));
Readln
END.

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

Объявлены две переменные типа Integer: a и b.
Выводится сообщение A= и считывается значение переменной a с помощью функции Readln.
Выводится сообщение B= и считывается значение переменной b с помощью функции Readln.
Вызывается функция sum с аргументами a и b.
Выводится результат вызова функции sum с помощью функции Writeln.
Программа ожидает ввода данных с помощью функции Readln.