Что выполняет данная команда READLN???
Принимает вводимую пользователем строку.
Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x