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

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

Блок-схему прикрепил