Запросить с клавиатуры натуральное число n. используя циклы, вывести через пробел n раз на экран цифру 1.

Program z1;
var 
n,i:integer;
begin
writeln('Введите число n:');
readln(n);
For i:=1 to n do
write('1 ');
end.