Dze je subor www.TrSek.com/zadania/cislo2.pas{ CISLO2.PAS }
{ Usporiadanie 3 cisel. Druha verzia. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program cislo;
uses crt;
var
a,b,c,max_num:integer;
begin
clrscr;
writeln('Porovnanie 3 cisel');
writeln('------------------');
writeln('Zadaj prve cislo');
readln(a);
writeln('Zadaj druhe cislo');
readln(b);
writeln('Zadaj tretie cislo');
readln(c);
clrscr;
IF a > b THEN
begin
IF a > c THEN
begin
IF b > c THEN
begin
writeln('Najvacsie cislo je ',a,' potom ',b,' potom ',c);
end else
begin
writeln('Najvacsie cislo je ',a,' potom ',c,' potom ',b);
end;
end else
begin
writeln('Najvacsie cislo je ',c,' potom ',a,' potom ',b);
end;
end else
begin
IF b > c THEN
begin
IF a > c THEN
begin
writeln('Najvacsie cislo je ',b,' potom ',a,' potom ',c);
end else
begin
writeln('Najvacsie cislo je ',b,' potom ',c,' potom ',a);
end;
end else
begin
writeln('Najvacsie cislo je ',c,' potom ',b,' potom ',a);
end;
end;