1 Какие служебные слова относятся к заголовку алгоритма?

2 Что называется, телом алгоритма?

3 Что относится к особенностям алгоритмического языка?

4 Какие слова называются служебными?

5 Сопоставьте служебные слова с записями, которые указываются после них
1) условия применимости
2) последовательность команд
3) цель выполнения алгоритма
4) название алгоритма

Program primer;
procedure random(c,x,y:integer; var r:integer);
    begin
        case c of
                1 : r:=Random(ABS(Y)+ABS(x)+1)+x;
                2 : r:=Random(ABS(Y)+ABS(x)+1)+y;
                3 : r:=Random(Y-x+1)+x;
                4 : r:=Random(x-y+1)+y;
                5 : r:=Random(x+y);
                6 : r:=Random(ABS(x+y))-ABS(x+y);
                7 : r:=x;
                8 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(x);
                9 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(y);
        end;
   end;
var
  a,b: array of array of integer;
  i,j,x,y,c,m,p,sum:integer;  begin
Randomize;
sum:=0;
writeln('Кол-во строк и столбцов массива? //X,Y\\  ');
read(i,j); //Размерность массива
writeln('Диапазон чисел //от X,до Y\\ '); 
read(x,y); //и диапазон генерации вводятся с клавиатуры.
if (x=y) then
c:=7
else
if(x<0) and (y<0) then 
if (x<y) then 
c:=8
else
c:=9
else
if (x=0) or (y=0) then 
if(x<0) or (y<0) then 
c:=6
else
c:=5
else
if(x<0) or (y<0) then 
if (x<y) then 
c:=1
else 
c:=2
else
if (x<y) then 
c:=3
else 
c:=4;
SetLength(a,i);
for  m:=0 to i-1 do
  SetLength(a[m],j);
  SetLength(b,i);
  for  m:=0 to i-1 do
  SetLength(b[m],j);    
for  m:=0 to i-1 do begin  
writeln();
     for  p:=0 to j-1 do   begin                     
     random(c,x,y,a[m,p]);    {Заполнить двумерный массив случайными числами.}         
 sum:=sum+a[m,p];  {вычисляет сумму всех элементов массива}
          write (a[m,p]:3,' ':3);
           end; 
         end;  
        c:=0;   
        writeln('summa=',sum);  
 for  m:=0 to i-1 do begin {Затем организовать новый массив В  }
writeln();
     for  p:=0 to j-1 do  begin            
 if (a[m,p] <0) then          begin  
       b[m,p]:=1; {в котором заменить отрицательные элементы исходного массива на 1}        inc(c);  {Подсчитать количество замен.   }
   end       
   else         
  b[m,p]:=a[m,p]; {а значения остальных элементов оставить без изменения }
   write(b[m, p]:3, ' ':3);      
  end;         
 end;         
 writeln('kol=',c);        
  a:=NIL;          
b:=NIL;     
end.
// ABC Pascal

Я знаю тип вирусов "Троянские программы" эти программы маскируются под видом других системных приложений и атакуют компьютер
1. Создал вирус о котором я рассказываю студент Фред Коэн,
Запустив вирус на компьютер VAX он убедился что вирус размножается с невероятной скоростью! И в зависимости от условий может заразить весь компьютер за время от 5 минут до 1 часа! Испугавшись студент прекратил свой эксперимент.В следующем году студент написал научную работу по этой теме.
2. Этот вирус пришёл из Пакистана и назывался "Мозг" Лекарство от него появилось только в 1988 году! К тому времени количество вирусов возрастало и их становилось всё больше  и больше
3. Вирус Jerusalem в 1988 году отформатировал жесткие диски в пятницу 13. Он был создан в Израиле. Этот вирус напугал очень много пользователей. Потому-что тогда антивирусы были диковинкой. А вреда вирус приносил много к примеру при попытке запуска заражённого файла сразу-же заражал его! Я когда наступала пятница 13 он просто форматировал жесткий диск.