Составьте блок-схему и напишите программу вывода на экран а)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.