Дано n чисел найти количество чисел со значением больше 10

Program mu;
Var c,a,n,x:integer;
Begin
read (n);
for a:=1 to N do begin read (x) if x>0
then c:=c+1; end;
write (c,' чисел>10');
end. 

Program z3;  Var y: array [1..15] of real;      g: array [1..20] of real;      i,d: integer; sum, sum_2: real;Begin  writeln('Введите оплату труда за день'); read(d);  for i := 1 to 15 do    y[i] := random (30) * d * 0.8;      for i:=1 to 20 do    g[i] := random (30) * d * 0.8;    for i:=1 to 15 do  begin    writeln('Сотрудник y_',i,' - ',y[i]);    sum:= sum + y[i];  end;  writeln;  writeln('Сумма отдела y - ', sum);  writeln;  for i:=1 to 20 do  begin    writeln('Сотрудник g_',i,' - ',g[i]);    sum_2:= sum_2 + g[i];  end;  writeln;  writeln('Сумма отдела g - ', sum_2);  writeln;    End.

В сети с выделенным сервером один из компьютеров выполняет функции хранения данных, предназначенных для использования всеми рабочими станциями, управление взаимодействием между рабочими станциями и ряд сервисных функций. Такой компьютер обычно называют сервером сети. На нем устанавливается сетевая операционная система, к нему подключается все разделяемые внешние устройства (Принтеры модемы и т.д.). Взаимодействие между рабочими станциями в сети осуществляется через сервер. Логическая организация такой сети может быть представлена топологией «звезда». Роль центрального устройства выполняет сервер. Сети на основе сервера поддерживать тысячи пользователей. Сетями такого размера, будь они одноранговые, было бы невозможно управлять. Основным аргументом при выборе сети на основе сервера является, как правило, защита данных. В таких сетях проблемами безопасности может заниматься один администратор, он формирует политику безопасности и применяет в отношении каждого пользователя сети. В сетях с централизованным управлениям существует возможность обмена информации между рабочими станциями, минуя файл – сервер.