Pascal ABC NET. Напишите программу с использованием подпрограмм. Реализуйте четыре подпрограммы – по одной на каждое арифметическое действие.

Спасибо!

//PascalABC.NET 3.1 сборка 1230function sum(a, b: real) := a + b;function bet(a, b: real) := a - b;function mult(a, b: real) := a * b;function divis(a, b: real) := a / b;begin  var a := ReadReal('Введите два числа:');  var b := ReadReal;  WritelnFormat('{0} + {1} = {2}', a, b, sum(a, b));  WritelnFormat('{0} - {1} = {2}', a, b, bet(a, b));  WritelnFormat('{0} * {1} = {2}', a, b, mult(a, b));  WritelnFormat('{0} / {1} = {2}', a, b, divis(a, b));end.