я знаю только блок схемы Visio
Запустите Visio.
Выберите категорию Блок-схема.
Дважды щелкните значок Простая блок-схема.
Для каждого этапа документируемого процесса перетащите в документ соответствующую фигуру блок-схемы.
Чтобы соединить элементы блок-схемы, наведите указатель мыши на первую фигуру, и щелкните стрелку, указывающую на фигуру, с которой требуется создать соединение. Если вторая фигура находится не рядом с первой, необходимо перетащить маленькую стрелку к центру второй фигуры.
Чтобы добавить текст для фигуры или соединительной линии, выделите ее и введите текст. По завершении ввода текста щелкните в пустой области страницы.
Чтобы изменить направление стрелки соединительной линии, выберите соединение, а затем на вкладке Фигура в группе Стили фигур щелкните пункт Линия, наведите указатель на пункт Стрелки и выберите нужное направление и вид стрелки.
Автоматическое выравнивание и интервалы
Нажмите сочетание клавиш CTRL+A, чтобы выбрать все объекты на странице.
На вкладке Главная в группе Упорядочение нажмите кнопку Положение и выберите пункт Автовыравнивание и определение интервалов.
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
sum:=0;
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];
{Заменяем эти элементы найденной суммой}
for i:=1 to n do
if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;
{Вывод}
writeln;
for i:=1 to n do writeln(a[i]);
end.
в настройках сервера заходишь в настройки сервера там вкоадка роли и нажимаешь на плюсик