Программа отгадывания чисел - Turbo Pascal

Формулировка задачи:

Напишите программу, которая запрашивает у пользователя число от 1 до 10 (в случае несоответствия всплывает соответствующее сообщение), после чего умножает это число на 3000, прибавляет 111 и делит на 16, после этого запрашивает ФИО и выводит на экран следующее сообщение: "ИОФ, ваш результат - "

Решение задачи: «Программа отгадывания чисел»

Листинг программы

var n:integer; //число
f,i,o:string;
c:char;
BEGIN
f:=''; i:=''; o:=''; //обнуляем ФИО
Write ('Введите число от 1 до 10: ');
Readln (n);
n:=(n*3000+111) div 16;
Write ('Введите ФИО: ');
Repeat //читаем Фамилию
Read (c);
f:=f+c;
Until c=' ';
Delete (f,Length(f),1); //удаляем ненужный пробел
Repeat  //читаем Имя
Read (c);
i:=i+c;
Until c=' ';
Readln (o);  //читаем Отчество
Writeln (i,o,' ',f,', ваш результат - ',n);
END.

Объяснение кода листинга программы

Объявляются переменные: n, f, i, o, c.
Задается начальное значение для переменной n.
Задаются начальные значения для переменных f, i, o, c.
Выводится сообщение для ввода числа от 1 до 10.
Число с клавиатуры записывается в переменную n.
Вычисляется значение n, умноженное на 3000 и деленное на 16.
Выводится сообщение для ввода ФИО.
В цикле читается по одной букве из ФИО, пока не будет введен пробел.
Каждая прочитанная буква добавляется к переменной f.
После окончания ввода ФИО удаляется лишний пробел в конце строки.
Повторяется шаг 8 для ввода Имени.
Повторяется шаг 9 для ввода Отчества.
Выводится результат, объединяющий введенные данные: ФИО, Имя, Отчество, число.