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

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