Сколько секунд потребуется модему, передающему сообщения со скоростью 24 500 бит/с, чтобы передать 70 страниц текста в 35 строк по 50 символов каждая, при условии, что каждый символ кодируется 1 байтом. Введите только число.

1 winrar
2 PowerPoint
3 Paint
4 FineReader
5 ?
6 Word
7 Acces
8 Excel
9 Delphi

Var s:string;
begin
readln(s);
delete(s,length(s)-1,2);
writeln(s);
end.

Пример:
programma
program

Program pr;
var a:array [1..10] of integer
i, imax, imin, mx, mn, n:integer;
begin
for i := 1 to 10 do
a[i] := random(50);
mx := a[1];
for i := 2 to 10 do
begin
if a[i] > mx then
begin
mx := a[i];
imax := i
end;
end;
mn := a[0];
for i := 2 to 10 do
begin
if a[i] < mn then
begin
mn := a[i];
imin := i
end;
end;
a[imax] := mn;
a[imin] := mx
writeln(a);
end.