program illem; uses crt; var k,j:byte; begin clrscr; writeln('Add meg Kati eletkorat!'); readln(k); writeln('Add meg Juli eletkorat!'); readln(j); if k>j then writeln('Kati ay idosebb!') else begin if k=j then writeln('Kati es Juli egyidosek!') else writeln('Juli az idosebb!'); end; readln; end.