> -- snuk писал(а):
> Построчно я понял это так:mas:ARRAY 100 OF INTEGER;         k, N, max:INTEGER; BEGINIn.Open; N:=-1; WHILE in.Done DO N:=N+1; In.Int(mas[N]); END;N:=N-1; k:=k+1; max:=mas[0]; WHILE k<=N DO IF mas[k]>max THENmax:=mas[k];END;END;k:=k+1;END;StdLog.Int(max);Я совсем уже запутался