Разработайте программу, которая выводит ваше имя, заключенное в рамку из символов * , используя язык Паскаль

Суть вопроса: Вывод строки в рамке из символов "*" на языке Паскаль
Разъяснение: Чтобы решить данную задачу на языке Паскаль, необходимо использовать циклы и условные операторы для правильного формирования строки в рамке. Ниже представлен код, который выполняет указанную задачу:

program OutputName;

var

  name: string;

  i, j: integer;

begin

  // Введите ваше имя

  write("Введите ваше имя: ");

  readln(name);

  

  writeln;

  

  // Верхняя граница рамки

  for i := 1 to length(name) + 4 do

    write("*");

  writeln;

  

  // Содержимое рамки

  writeln("* ", name, " *");

  

  // Нижняя граница рамки

  for i := 1 to length(name) + 4 do

    write("*");

  writeln;

end.

Демонстрация:

Введите ваше имя: Витя





* Витя *

Совет: Для лучшего понимания работы программы на языке Паскаль, рекомендуется ознакомиться с концепцией циклов и условных операторов, примеры кода и запустить программу на выполнение, чтобы увидеть результат.

Дополнительное упражнение: Напишите программу на языке Паскаль, которая выводит в рамке из символов "*" любую введенную пользователем строку, включая имя, фразу или предложение.