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

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