Составьте, пожалуйста, программу для Паскаль на нахождение суммы,произведения и среднего арифметического двух или трех чисел. Буду очень вам благодарна!

Var a,b:integer;
begin
readln(a,b);
writeln(Сумма чисел = ,a+b);
writeln(Произведение чисел = ,a*b);
writeln(Среднее арифметическое = ,(a+b)/2);
end.

Пример:
25
76
Сумма чисел = 101
Произведение чисел = 1900
Среднее арифметическое = 50.5