Дан текстовый файл, содержащий только целые числа, состоящий из трёх строк. определить длину самой меньшей строки.

Program  proga; var  str1,str2,str3: string; input: text; begin assign(input,'file.txt'); reset(input); readln(input,str1);   readln(input,str2);   readln(input,str3); if(length(str1)> length(str3)and length(str3)) then writeln('1  строка  самая  длинная'); else if length(str2)> length(str3) and  length(str1) then   writeln('2 строка самая длинная');   else if length(str3)> length(str1) and length(str2) then writeln('3  строка  самая  длинная'); close(input); end. p.s файл со строками надо предварительно создать в папке с exe файлом программы

2^i = 32, i = 5 бит приходится на 1 символ

2^i = 64, i = 6 бит приходится на 1 символ

т.к. количество символов в тексте одинаковое, то 6 : 5 = 1,2

информационный объем второго текста в 1,2 больше, чем у первого текста.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.