Var integer begin while. For i 1 to n do begin в паскале. readln(n). readln в паскале. for to do паскаль программа begin end.