Учитывая первый оператор write(4) и то, что цикл будет выполнен 3 раза, то получим 4864
2^i=32
I=5 бит – вес одного символа
5*80 = 400 бит – вес первого текста
2^i=64
I=6 бит – вес одного символа
6*70 =420 бит– вес второго текста
Ответ: второй текст больше на 20 бит
Uses crt;
Var
i,a,b,pr:integer;
Begin
Clrscr;
Pr:=1;
Repeat
Writeln('Введите числа A=1, b<=10'); readln(a,b);
Until (a=1) and (b<=10);
For i:=a to b do
Pr:=pr*i;
Writeln('Произведение числ от ',a,' до ',b,' равно ',pr);
Readkey;
End.