program zub;
uses crt;
var s,w,n:integer;
begin
clrscr;
randomize;
  s:=random (6);
  w:=random (6);
    if s>w
      then
        begin
          n:=s-w;
          writeln (' У Кузьки на ',n,' зуба(б,ов) больше, чем у бабы Дуси')
        end
      else
        begin
          n:=w-s;
          writeln (' У бабы Дуси на ',n,' зуба(б,ов) больше, чем у Кузьки');
    if s=w
       then
         writeln ('У младенца Кузьки и бабы Дуси одинаковое количество зубов');
    end;
readkey;
end.