Примеры систем автоматического (сау) и автоматизированных систем (асу конкретные примеры, сколько сможете.

1) АСУ:
Автоматизированная система управления операционным риском — программное обеспечение, содержащее комплекс средств, необходимых для решения задач управления операционными рисками предприятий: от сбора данных до предоставления отчетности и построения прогнозов. Расчеты производятся на основе моделей и методов статистического и экономического анализа.
Автоматизированная система управления уличным освещением («АСУ УО») — предназначена для организации автоматизации централизованного управления уличным освещением.
Автоматизированная система управления наружного освещения («АСУНО») — предназначена для организации автоматизации централизованного управления наружным освещением.
Автоматизированная система управления дорожным движением («АСУ ДД») — предназначена для управления транспортных средств и пешеходных потоков на дорожной сети города или автомагистрали.
Еще есть "Система управления гостиницей"

2) К САУ можно относети различные торговые, игровые или музыкальные автоматы, а так же системы стабилизации уровня звука, изображения или магнитной записи. Это могут быть управляемые комплексы летательных аппаратов, включающие в свой состав системы автоматического управления двигателя, рулевыми механизмами, автопилоты и навигационные системы.  

{В двухмерном массиве найдите количество и произведение не кратных 4
трехзначным элементов k-го столбца}
var
 C:array [1..100,1..100] of integer;
 p: longint;
 kol, k:byte; {кол-во отрицательных эл-тов}
 N,M,i,j:byte;
begin
  writeln('введите размерность массива (кол-во строк, столбцов)');
  readln(N,M);
  writeln('введите элементы двумерного массива');
  for i:=1 to N do
  for j:=1 to M do
   read(C[i,j]);
  writeln('введите номер столбца');
  readln(k);
  kol:=0; P:=1;
   for i:=1 to N do
   if  (C[i,k] mod 4<>0) and (C[i,k]>=100) and (C[i,k]<1000) then  {не кратно 4, трехзначное}
   begin
     P:=P*C[i,k];
     kol:=kol+1
   end;
   writeln('kol=', kol:7);
   writeln('произведение=', P:5)
end.

{Используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу,
воспользовавшись массивом y как вс
а) все отрицательные элементы массива x перенесите в его начало,
а все остальные — в конец, сохраняя исходное взаимное
расположение как среди отрицательных, так и среди остальных элементов;
б) элементы массива х циклически сдвиньте на k позиций влево.}
Var
 x, y: array [1..70] of real;
 k: 1..69;
 n, i,j,  k1: integer;
 c :real;
begin
 writeln('введите кол-во элементов массива');
 readln(n);
 writeln('введите элементы массива');
 for i:=1 to n do read(x[i]);
 k1:=0;
{все отрицательные элементы массива x перенесите в начало массива y}
 for i:=1 to n do
 if x[i]<0 then
 begin
   k1:=k1+1;
   y[k1]:=x[i]
 end;
{все не отрицательные элементы массива x переносим в конец массива y}
 for i:=1 to n do
 if x[i]>=0 then
 begin
   k1:=k1+1;
   y[k1]:=x[i]
 end;

 for i:=1 to n do
   x[i]:=y[i];
 for i:=1 to n do
   write(x[i]:8:2);

{б) элементы массива х циклически сдвиньте на k позиций влево.}
 writeln('введите k');
 readln(k);
 for i:=1 to n do y[i]:=x[i];
 for i:=1 to n-k do x[i]:=x[i+k];
 for i:=1 to k do x[n-k+i]:=y[i];
 for i:=1 to n do write(x[i]:8:2);
end.