Буду ! 1.зад даны 2 числа найти их сумму и произведение 2.зад дано 2 х значения число найти сумму его цифр 3.зад даны 2 числа найти их сред арифмитическое составить программу на языке паскаль

1-zadacha
var a,b:integer;
begin
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Writeln('Сумма=',a+b);
Writeln('Произведение=',a*b);
end.

2-zadacha
var a:integer;
writeln('Введите двухзачений число='); Readln(a);
Writeln('Сумма цифр=', (a mod 10)+(a div 10));
end.

3-zadacha
var a,b:integer;
begin
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Writeln('сред арифмитическое=',(a+b)/2);
end.