1 байт - 8 бит
80000 бит/с = 10000 байт/с
1 Кбайт - 1024 байт
10000 байт * 50с = 500000 байт(за 50 с )
Дальше сам,данные есть,решай по формуле S=tV (V -скорость)
Var a,min:integer;
begin;
min:=<span>32767;
</span>a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
if a>0 then exit;
if min>a then min:=a;
end;
writeln(min);
end.
Program z2; Var n,i:integer; Begin Write('N = '); readln(n); while n>0 do begin write(n,' '); n:=n-1; end;End.