Составить программу, определяющую средний рост учащихся в классе.

uses crt;
var n,r:integer;
    sr:real;
    c:char;
begin
clrscr;
writeln('Введите данные о росте учащихся, окончание ввода Esc:');
n:=0;sr:=0;
repeat
n:=n+1;
write('Рост ',n,'=');
readln(r);
sr:=sr+r;
c:=readkey;
until c=#27;
write('Средний рост=',sr/n:0:1);
readln
end.

uses crt;
type
matr=array[1..20,1..20] of integer;
procedure Vvod(var mt:matr;var x,y:byte;var sr:real);
var i,j:byte;
begin
writeln('Матрица:');
write('Количество строк =');
readln(x);
write('Количество столбцов =');
readln(y);
sr:=0;
for i:=1 to x do
 begin
  for j:=1 to y do
   begin
    mt[i,j]:=random(20);
    sr:=sr+mt[i,j];
    write(mt[i,j]:4);
   end;
  writeln;
 end;
sr:=sr/(x*y);
writeln('Среднее=',sr:0:2);
end;
function Kol(mt:matr;x,y:byte;sr:real):integer;
var i,j:byte;
    k:integer;
begin
k:=0;
for i:=1 to x do
for j:=1 to y do
if mt[i,j]>sr then k:=k+1;
Kol:=k;
end;
var a:matr;
    m,n:byte;
    sr:real;
begin
clrscr;
randomize;
Vvod(a,m,n,sr);
write('Количество больше среднего=',Kol(a,m,n,sr));
readln
end.

uses crt;
const bk=['а'..'п','р'..'я','ё','A'..'Z'];
var s:string;
    i:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
for i:=1 to length(s) do
if s[i] in bk then write(ord(s[i]),' ');
readln
end.