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

program prim1; var a,n:integer; begin write('Введите n:'): readln(n); a:=0; while a<=n do begin a:=a+1; writeln(a); end; end.