var a,b:integer;
c,d:real;
begin
a:=random(50); // Если нужно вводить своё число, то тогда "a:= *заданное число*" или, иначе, readln(a) "
writeln('Число "a" приняло значение ', a); // Если будет один из двух показанных выше, то эта строка не является обязательной.
b:=random(100); // Если нужно вводить своё число, то тогда "b:= *заданное число*" или, иначе, readln(b) "
writeln('Число "b" приняло значение ', b); // Если будет один из двух выше, то эта строка не является обязательной.
c:=((a+b)/2);
writeln('Среднее арифметическое данных двух чисел ', c);
d:=(sqrt(abs(a*b)));
writeln('Среднее геометрическое данных чисел ', d);
end.
Подправил твой код:}
program p1;
const n=20;
var i,a1,two,theere,fore,five,sum:integer;
sr:double;
a:array[1..20] of integer;
begin
two:=0;
theere:=0;
fore:=0;
five:=0;
sr:=0;
sum:=0;
for i:=1 to n do
begin
read(a1);
sum:= sum + a1;
a[i]:=a1;
if a[i]=2 then
two:=two+1;
if a[i]=3 then
theere:=theere+1;
if a[i]=4 then
fore:=fore+1;
if a[i]= 5 then
five:=five+1;
end;
writeln('Количество двоек: ',two);
writeln('Количество троек: ',theere);
writeln('Количество четвёрок: ',fore);
writeln('Количество пятёрок: ',five);
sr:=(sum)/n;
writeln(sr);
end.