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

2 мин - 120 сек
120 сек - 4000 кбт
1 сек 33,(3)
ответ:1 320 (примерно)

Function GetWord(s:string; var ptr:integer):string;
var
  i:integer;
begin
  i:=PosEx(' ',s,ptr);
  if i>0 then
    Result:=Copy(s,ptr,i-ptr)
  else
    Result:=Copy(s,ptr,length(s)-ptr+1);
  ptr:=i+1
end;

var
  f,g:Text;
  ib:integer;
  s,Fam,Im,Ot:string;
begin
  Assign(f,'Input.txt');
  Reset(f);
  Assign(g,'Result.txt');
  Rewrite(g);
  while not Eof(f) do begin
    readln(f,s);
    writeln(s); // отладочная выдача
    ib:=1;
    Fam:=GetWord(s,ib);
    Im:=GetWord(s,ib);
    Ot:=GetWord(s,ib);
    writeln(g,Im,' ',Ot,' ',Fam); // закомментарить строку для б)  
    writeln(Im,' ',Ot,' ',Fam);   // отладочная выдача
    writeln(g,Fam,' ',Im[1],'.',Ot[1],'.'); // закомментарить строку для а)
    writeln(Fam,' ',Im[1],'.',Ot[1],'.'); // отладочная выдача
  end;
  Close(f);
  Close(g)
end.

Тестовый прогон:

Иванов Петр Сергеевич
Петр Сергеевич Иванов
Иванов П.С.
Тарасова Анна Георгиевна
Анна Георгиевна Тарасова
Тарасова А.Г.
Коваленко Евгений Станиславович
Евгений Станиславович Коваленко
Коваленко Е.С.
Петрова Татьяна Вячеславовна
Татьяна Вячеславовна Петрова
Петрова Т.В.
Бородкин Тимофей Савельевич
Тимофей Савельевич Бородкин
Бородкин Т.С.
Пышка Варвара Семеновна
Варвара Семеновна Пышка
Пышка В.С.
Голобородько Ирина Олеговна
Ирина Олеговна Голобородько
Голобородько И.О.

INPUT "Kolichestvo okrugov. K="; k
INPUT "Kolichestvo partiy. M="; m
INPUT "Porog yavki izbirateley (v %). P="; p
DIM g(k, m + 1)
DIM pr(k, 1)
FOR i = 1 TO k
    CLS
    PRINT "Okrug  "; i
    g(i, 0) = i
    FOR j = 1 TO m
        PRINT "Golosov za partiyou "; j;
        INPUT g(i, j)
        pr(i, 1) = pr(i, 1) + g(i, j)
    NEXT j
    INPUT "Ne golosovalo "; g(i, m + 1)
    pr(i, 0) = i
    pr(i, 1) = 100 * pr(i, 1) / (pr(i, 1) + g(i, m + 1))
NEXT i
CLS
FOR i = 1 TO k
    FOR j = 1 TO k
        IF pr(i, 1) > pr(j, 1) THEN
            x = pr(i, 1)
            y = pr(i, 0)
            pr(i, 1) = pr(j, 1)
            pr(i, 0) = pr(j, 0)
            pr(j, 1) = x
            pr(j, 0) = y
        END IF
    NEXT j
NEXT i
PRINT "Itogi po golosovavshim"
PRINT "Okrug #", "Golosovalo (%)", "Pobedila partia #"
FOR i = 1 TO k
    PRINT pr(i, 0), pr(i, 1),
    IF pr(i, 1) >= p THEN
        PRINT "Yes. Sostojlis",
        max = 0
        FOR j = 1 TO m
            IF g(pr(i, 0), j) > max THEN
                max = g(pr(i, 0), j)
                x = j
            END IF
        NEXT j
        PRINT x
    ELSE PRINT "No. Ne sostojlis"
    END IF
NEXT i