Для уменьшения их размера.
Повторяешь условия цикла, заданое количество раз
Ответ: объем первого сообщения больше второго в два раза.
Решение смотри во вложении.
Var i:integer; number:integer;begin
number:=1; for i:=1 to 400 do begin writeln(number); number:=number+1; end;end.
1вг
2абг
3 б 11101110111
4в
5 501
6гвба
7б
8б
9г(переменных)
10в
11в
12 96
13 38с4