program Maximum3; uses crt; var a,b,c : integer; begin writeln(' Program, ktory zisti z 3 zadanych celych cisiel najvacsie cislo '); writeln; writeln('Zadaj 3 cisla :'); write(' Prve cislo : '); readln(a); write(' Druhe cislo : '); readln(b); write(' Tretie cislo : '); readln(c); writeln; if a>b then if a>c then writeln('Najvacsie cislo je ',a) else writeln('Najvacsie cislo je ',c) else if b>c then writeln('Najvacsie cislo je ',b) else writeln('Najvacsie cislo je ',c); readln; end.