Напишите следующую программу на языке паскаль. даны целые числа а, в и с. если а < или = b < или равно с, то все числа замените их квадратами, если а > b > c, то каждое число замените наибольшим из них, в противном случае смените знак каждого числа

Var a,b,c:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a<=b) and (b<=c) then writeln( sqr(a),' ', sqr(b),' ', sqr(c));
if (a>b) and ( b>c) then writeln ('a=',a,' b=',a,' c=',a) 
else
 writeln (-a,' ',-b,' ', -c);
readln;
end.

1.Мощность - 52, значит 5 символв для кодирования 1 символа не хватит, т.к 2^5<52, а вот 2^6=64>52, значчит нам как раз подходит (то что больше это не важно главное чтоб хватало, и меньше не было)    значит 1 сивол занимает 6 бит информации, значит 3000 сиволов занимают 3000*6 бит информации, = 18000 бит /8 =  2 250 байт. это чуть больше 2 Кбайт.

2.  256 = 2^8, значит 1 символ содержит 8 бит информации. 1 Мбайт = 2^23 бит,  значит   2^23/2^5=2^17 бит.    Значит символов у нас 2^17/2^3= 2^14, это 16 384 символа.
ПРости забыл обозначения) поэтому только так

      а   в   с ВилиС    АиВилиС
      и    и   и    и            и
      и    л   и     и            и
      и     и   л    и            и
      и     л   л    л            л
      л    и     и    и          л
       л    л    и    и          л
       л     и   л    и           л
      л      л   л    л           л

А     В    С   _В  _ВиС    Аили_ВиС
и      и     и    л     л          и
л       и    и     л    л            и
и       л   и       и   и             и
и      и    л      л    л           и
и      л    л      и    л           и
л      и    и      л     л          л
л       л   и      и     и          и
л       и     л     л    л             л 
л      л    л       и    л             л