Images BEGIN READLN

< Previous photo
Photo - 75
Next photo >
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 : integer = 1 to n. For i 1 to 10 do. For i:=1 to 5 do begin.
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 : integer = 1 to n. For i 1 to 10 do. For i:=1 to 5 do begin.

See also