Помогите пожалуйста!! Математика

Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите набольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 6.var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x > 0 do begin

a := a + 1;

b := b * (x mod 6);

x := x div 6;

end;

writeln(a); write(b);end.

Помогите! в предложении print(num1 + ' голова хорошо, а', num1 , + ' — лучше!') там стоит num1 и нужно прибавить + 1 и должо получиться 2

num1 = int(str('1'))

num2 = '7'

num3 = '100'

print(num1 + ' голова хорошо, а', num1 , + ' — лучше!')

print(num2 + ' раз отмерь, ' + num1 + ' раз отрежь')

print('Не имей ' + num3 + ' рублей, а имей ' + num3 + ' друзей!')