1.
Var
a,b:real;
Begin
Write('Введите два числа ');
Readln(a,b);
Writeln('Среднее арифметическое ',a,' и ',b,' равно ',(a+b)/2);
End.
2.
Var
a,b:integer;
Begin
write('Введите стороны прямоугольника ');
Readln(a,b);
Write('У прямоугольника со сторонами ',a,' и ',b,' площадь равна ',a*b,', а периметр ',(a+b)*2);
End.