var
a,b,i: integer;
begin
writeln ('введи два числа');
read (a,b);
if a>b then writeln (a,'большее число')
else
writeln (b,'большее число')
end.
0,098 килобайт получается
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2();
(a,b):=(a/2,b+30);
write(a,' ',b);
end.
9+9 = 18
18-5 = 13 (5 - вторая цифра числа 154)
91(13)+93(13) = 154(13)
Ответ: основание системы счисления = 13