Uses Crt;
const
  n=5;
  a:array[1..5] of string=('первое','второе','третье','четвертое','пятое');
var
  i:integer;
  s,m:real;
begin
  ClrScr;
  Writeln('Вычисление среднего арифметического двух чисел.');
  Writeln('Введите исходные данные:');
  s:=0;
  for i:=1 to n do begin
    Write('Введите ',a[i],' число -> '); Read(m);
    s:=s+m
    end;
  Write('Среднее арифметическое пяти введенных чисел равно: ');
  m:=s/n;
  Writeln(Trunc(m),',',Round(100*Frac(m)));
  ReadKey
end.