Нужно написать программу на паскале.

нет

Комментарии, которые могут быть вложенными (*...*) или {...} или (*...} или {...*)

Регистрозависимость нет

Регулярное выражение идентификатора переменной [A-Za-z_][A-Za-z0-9_]*

Регулярное выражение идентификатора функции [A-Za-z_][A-Za-z0-9_]*

Присваивание значения переменной varname := value

Объявление переменной varname: type

Объявление переменной с присваиванием значения varname: type = value

Группировка выражений ( ... )

Блок begin ... end

Тождественное равенство =

Тождественное неравенство <>

Сравнение < > <= >=

Определение функции function f(p1: type1; p2: type2; ...): returntype;

Вызов функции f(a, b, ...)

Вызов функции без параметров f

Последовательность ;

Если - то if condition then trueBlock

Если - то - иначе if condition then trueBlock else falseBlock

Бесконечный цикл while true do loopBody

Цикл с предусловием while condition do loopBody

Цикл с постусловием repeat loopBody until condition

Цикл for - next для диапазона целых чисел с инкрементом на 1 for i := first to last do loopBody

Цикл for - next для диапазона целых чисел с декрементом на 1 for i := last downto first do loopBody

Объяснение: