Write a program in Pascal. Write a program that prints 10 identical numbers.

var
i, n: integer; // declare two variables of integer type.
begin
writeln (‘Enter one arbitrary number:’); // display a text string.
readln (n); // read the value of the variable entered from the keyboard.
for i: = 1 to 10 do // start of the loop, will be executed 10 times.
begin
writeln (n); // at each step of the loop, print the value of the variable n to the screen.
end;
end.