Question

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

Answer 1

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