Задача C. Вычисления С Ограничение по времени: 1 секОграничение по памяти: 256 МбВвести с клавиатуры трехзначное число и вывести через запятую его цифрыФормат входных данныхВ первой строке дано трехзначное числоФормат выходных данныхCтрока цифры этого числа через запятуюдаю 20б

Const n=5; m=4;
var 
a:array[1..n,1..m] of integer;
i,j,k,d,s:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(4)+2;
  write(a[i,j]:4);
  end;
  writeln;
 end;
k:=0; s:=0;
for i:=1 to n do
 begin
 d:=0;
 for j:=1 to m do 
  begin
  if a[i,j]=2 then d:=d+1;
  s:=s+a[i,j];
  end;
 if d>0 then k:=k+1;
 end;
writeln('Количество неуспевающих = ',k);
writeln('Средний группы = ',s/n/m);
end.

Пример:
Оценки:
   5   3   3   5
   3   4   2   2
   4   5   5   5
   2   4   4   2
   5   2   3   3
Количество неуспевающих = 3
Средний группы = 3.55