Вывести на экран таблицу квадратов заданных чисел - Pascal

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

Всем привет, не могли-бы вы помочь с двумя задачками? 1. Ввести с клавиатуры 10 целых чисел. Вывести на экран таблицу квадратов этих чисел. Оформить таблицу в рамку. 2. Деду M лет, а внуку N лет. Через сколько лет дед станет вдвое старше внука. И сколько при этом лет будет деду и внуку.

Решение задачи: «Вывести на экран таблицу квадратов заданных чисел»

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

program Seq10;
 
procedure WriteHorizontalBorder;
var
  i : Word;
begin
  writeln;
  
  for i := 1 to 10 do
    write('-----------');
  write('-');
  
  writeln;
end;
 
 
var
  i : Word;
  Numbers : array [1..10] of integer;
begin
  writeln('Вводите 10 чисел');
  //считываем числа
  for i := 1 to 10 do
    read(Numbers[i]);
  
  //формируем и выводим результирующую таблицу
  //верхняя граница
  WriteHorizontalBorder();
  
  //строка исходных данных
  write( '|' );
  for i := 1 to 10 do
    write(Numbers[i] : 10, '|');
  
  //средняя граница
  WriteHorizontalBorder();
  
  //строка квадратов
  write( '|' );
  for i := 1 to 10 do
    write(sqr(Numbers[i]) : 10, '|');
  
   //нижняя граница
  WriteHorizontalBorder();  
  end.

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

Создается процедура WriteHorizontalBorder, которая будет выводить горизонтальную границу таблицы.
В процедуре объявляется переменная i типа Word.
Процедура выводит пустую строку и использует цикл для вывода 10 раз подряд символов ----------- и еще одного символа -.
Затем процедура переходит на новую строку.
Объявляются переменные i типа Word и Numbers - массив из 10 целочисленных элементов.
Выводится сообщение Вводите 10 чисел.
Происходит ввод 10 чисел и их запись в массив Numbers.
Вызывается процедура WriteHorizontalBorder() для вывода верхней границы таблицы.
Выводится строка исходных данных, каждое число выравнивается по ширине 10 символов справа и отделяется символом |.
Снова вызывается процедура WriteHorizontalBorder() для вывода средней границы таблицы.
Выводится строка квадратов исходных чисел, каждый квадрат выравнивается по ширине 10 символов справа и отделяется символом |.
Наконец, вызывается процедура WriteHorizontalBorder() для вывода нижней границы таблицы.
Программа завершается.