program ukol4; var a,b:integer; begin write('Zadejte prvni cislo: '); readln(a); write('Zadejte druhe cislo: '); readln(b); writeln; writeln('----------------------'); writeln; if a>b then writeln('Vetsi je prvni cislo: ',a) else if a=b then writeln('Cisla jsou si rovna') else writeln('Vetsi je druhe cislo: ',b); end.