Var 
   r1,r2,h1,h2:byte;
 Begin
   Writeln('r1 h1');
   Read(r1,h1);
   Writeln('r2 h2');
   Read(r2,h2);
   If r1=r2 then writeln('А и В равны по ширине основания');
   If r1>r2 then writeln('А шире В') else writeln('В шире А');
   If h1=h2 then writeln('А и В равны по высоте');
   If h1>h2 then writeln('А выше В') else writeln('В выше А'); 
   Readln;
 End.