var a,b: byte; c: char;
BEGIN
writeln('Який результат зважування кубів 1 і 2:');
writeln('0 - куб 1 легший');
writeln('1 - куб 1 важчий');
writeln('2 - куби мають однакову вагу');
repeat writeln('Вкажіть результат');
       readln(c)
 until c in ['0','1','2'];
case c of
  '0': a:=0;
  '1': a:=1;
  '2': a:=2; end;
writeln('Який результат зважування кубів 1 і 3:');
writeln('0 - куб 1 легший');
writeln('1 - куб 1 важчий');
writeln('2 - куби мають однакову вагу');
repeat writeln('Вкажіть результат');
       readln(c)
 until c in ['0','1','2'];
case c of
  '0': b:=0;
  '1': b:=1;
  '2': b:=2; end;
case 10*a+b of
  0 : writeln('Куби 1, 4 легші');
  2 : writeln('Куби 1, 3 легші');
  11: writeln('Куби 2, 3 легші');
  12: writeln('Куби 2, 4 легші');
  20: writeln('Куби 1, 2 легші');
  21: writeln('Куби 3, 4 легші');
1,10,22: writeln('Хтось збрехав!') end;
END.