Var b a 1
Var b a 1.
Writeln(a,'#',b).
Readln(a,b);.
Then writeln.
Begin readln.
Var i,n:integer; begin writeln('введите n'); readln(n); i:=1 while i<=n do begin write(i,' '); i:=i+1; end; end.
.
For i:=1 to n do writeln (a[i]).
Var i integer.