Написать программку на языке Pascal. Написать программку, которая выводит 10 схожих

var
  i, n : integer; // объявляем две переменных целочисленного типа.
begin
  writeln(Введите одно произвольное число: ); // выводим на экран текстовую строку.
  readln(n); // считываем значение переменной, введенное с клавиатуры.
  for i := 1 to 10 do // начало цикла, будет выполняться 10 раз.
    begin
      writeln(n); // при каждом шаге цикла выводим значение переменной n на экран.
    end;
end.