Вот так вот) там во втором "ввод a, b, c" лучше)
Стекловолокно или стекловолоконная нить
На столько хватило времени.
Еще можно при помощи макросов автоматизировать ведение базы до 60000 записей
Var
a,b,c:integer;
begin
read(a,b,c);
if a<b then a:=b;
if a>=c then writeln(a) else writeln(c);
end.
111011 = 1 * 2^5 + 1 * 2^4 + 1 * 2^3 + 1 * 2^1 + 1 * 2^0 = 59 (10)
59 / 8 = 7
56 =
3
59 = 73 (8)