Помогите составить программу на языке программирования Паскаль, которая бы содержала бы как минимум ТРИ ВЕТВЛЕНИЯ (if ... then ... else ...) и ОДИН ЦИКЛ (for i := 1 to ... do ...).

program yourname;uses crt;var com:string; i:integer;beginwriteln('Задайте значените программы.');writeln('Для того чтобы программа посчитала от 1 до 5 пропишите команду  "go1".');writeln('Для того чтобы программа посчитала от 5 до 1 пропишите команду  "go2".');writeln('Для того чтобы сказать спасибо программе - пропишите команду "go3".');readln(com);If (com = 'go1') then beginwriteln(Программа считает от 1 до 5');for i:=1 to 5 do writeln(i) endelse if (com = 'go2') then beginwriteln('Программа считает от 5 до 1');for i:=5 downto 1 do writeln(i) endelse if (com = 'go3') then beginwriteln('Программа: Всегда рада вам помочь.'); endelse begin writeln('Данной команды не существует либо вы ввели команду вместе с ковычками.');writeln('Пожалуйста! Перезапустите программу.') end

end.