Урок 10.1 Задача 1

Урок 10.1 Задача 1

Выведите на экран, все числа N единиц (число задает пользователь), например, для N=2, должно быть выведено::
11
для N=9, должно быть выведено:

111111111

Решение:

program Project1;
var a,N: integer;
begin
  writeln('введите целое число');
  readln(a);
  for N:=1 to a do
    write(1,'');

  readln();
end.