Файл размером 5000 кбайт передается через некоторое соединение в течении 2 минут. определите размер файла (в кбайт),который можно передать через это соединение за 48 секунд. в ответе укажите одно число - размер файла в кбайт. единицы измерения писать не нужно.

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

var d,i: integer;

s: string;

begin

  read(d);

  s: =str(d);

  for i: = 1 to length(s) do

        if int(s[i]) mod 2=0 then

              writeln(s[i]);

end.