---

program Bevardė7;
var a,b:integer;
begin
WriteLn('Iveskite a');
Read(a);
WriteLn('Iveskite b');
Read(b);
if a=b then
writeLn(a,'ir',b,'yra lygu');
if a<b then
writeln(a,'mažiau už',b);
else
writeln(a,'daugiau už',b);
end.