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

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