32=2^5 => сообщение содержит 5 бит информации
const n=5;
a:array[1..n] of string = ('Москва','Владимир','Воронеж','Архангельск','Екатеринбург');
var i,m,mi: integer;
begin
m:=length(a[1]);
mi:=1;
for i:=2 to n do if length(a[i])>m then
begin
m:=length(a[i]);
mi:=i
end;
writeln;
writeln(a[mi])
end.
Конешн это исскуств. источнтк
<span>Операционная система (ОС) - это комплекс программного обеспечения, предназначенный для снижения стоимости программирования, упрощения доступа к системе, повышения эффективности работы.
</span>