Надо составить программу, СРОЧНО!!!!!

Question

Надо составить программу, СРОЧНО!!!!!

---

Answer 1

Var a,i,n:integer;
begin
  writeln('Введите a');
  readln(a); n:=0;
  for i:=1 to a do begin
    n:=n+1; writeln(i);
  end;
  writeln('N = ',n);
end.