Операция "не". Превращает все "1" в "0" и наоборот
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
//Попробуем по-новому
var n:integer;
begin;
readln(n);
var ar:=ArrRandomInteger(n+1,10,99);
var i:=1;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
<span>end.</span>
30 * 70 = 2100 символов на 1 странице
5 * 2100 = 10500 символов на 5 страницах
При кодировке ASCII - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.