Program pr; uses crt; Var x, y, buf:integer; Begin Write('Введите x '); readln(x); Write('Введите y '); readln(y); if x>y then Begin buf:=x; x:=y; y:=buf; end; Writeln('x = ',x); Write('y = ',y); readln; <span>end.</span>
I большая означает объём информации, например. I=K*i - для текста I=n*i*v*t - для звука(n - количество потоков(моно, стерео, квадро....) I=h*w*i - для изображений(h, w - высота и ширина картинки)