Заполнить таблицу по информатике " Этапы развития информационных систем"

выучи три команды из СКИ (системы команд исполнителя) "Стрелочка". Это будет быстрее чем задавать вопросы в И-нет:
ШАГ -перемещение на одно деление с рисованием линии;
ПРЫЖОК -перемещение на одно деление без рисования линии;
ПОВОРОТ -изменение направления движения на 90 гр. против часовой стрелки.
А пока держи алгоритмы (исходные данные то же, что и в предыдущих примерах:

Буква Ш:
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ПРЫЖОК    ПОВОРОТ    ШАГ    ШАГКОН

Буква Ц
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПРЫЖОК    ПРЫЖОК    ПРЫЖОК    ПОВОРОТ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГКОН
Буква Ч
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПРЫЖОК    ШАГКОН

Буква Б
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ПРЫЖОК    ПОВОРОТ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГКОН

Буква П
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ПРЫЖОК    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ШАГКОН

Буква Е
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПРЫЖОК    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ПРЫЖОК    ПОВОРОТ    ШАГКОН

Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.