Question

Помогите с программированием

Answer 1

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.