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;