Составьте блок-схему и напишите программу вывода на экран: n первых натуральных

Program ch;
var a,n:integer;
begin
write('vvedite n:');
readln(n);
a:=0;
while a<=n do begin
a:=a+1;
writeln(a);
end;
end.
Блок схему сам составишь  , тут всё написано .