uses crt;
const
n = 7;
m = 3;
type x = array[1..m, 1..n] of integer;
var
a : x;
i, min, j : integer;
s, t, v : real;

begin
clrscr;
write('T = ');
readln(t);

writeln('Vvedite matrizu');
for i := 1 to n do
for j := 1 to m do
begin
write(j,' element ',i,' stroki: ');
readln(a[j,i]);
end;

for i := 1 to n do
begin
s := 0; {obnulyaem summu}
for j := 1 to m do
begin
s := s + a[j,i]; {s4itaem summu}
if (a[j,i] < min) or (j=1) then min := a[j,i]
end;
writeln;
writeln('Stroka #',i);
writeln('Srednee arifmeti4eskoe: ', s/m:0:2, ', minimalny element: ', min);
if s/m-min>t then
begin
Writeln('T bolshe raznosti, programma zakon4ena.');
break;
end;
end;
readln
end.