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.
