Составить блок схему ,вывести все числа от 1 до числа, введенного с клавиатуры

program test; var i, n: word; begin  write('Введите число: '); readln(n);  for i := 1 to n do begin   write(i, ' ')  end;end.Блок-схему прикрепил