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

var

i, n : integer; / / объявляем две переменных целочисленного типа.

begin

writeln ('Введите одно произвольное число: '); / / выводим на экран текстовую строку.

readln (n); / / считываем значение переменной, введенное с клавиатуры.

for i : = 1 to 10 do / / начало цикла, будет выполняться 10 раз.

begin

writeln (n); / / при каждом шаге цикла выводим значение переменной n на экран.

end;

end.