0 then

0 then.

If then begin if if.

If s>p then begin.

If m<0 then.

Begin if (s<10).

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.