var a,b,c,d: real;

begin
     writeln('Trtkal 2008 - http://fei.trtkal.net');
     writeln('-----------------------------------');
     write('Zadej cislo: ');readln(a);
     write('Zadej cislo: ');readln(b);
     write('Zadej cislo: ');readln(c);
     write('Zadej cislo: ');readln(d);
     writeln('----------------');
    if a>b then
       begin
            if a>c then
               begin
                    if a>d then writeln('Nejvetsi cislo je: ', a:1:1) else writeln('Nejvetsi cislo je: ', d:1:1);
               end
               else
                   begin
                        if c>d then writeln('Nejvetsi cislo je: ', c:1:1) else writeln('Nejvetsi cislo je: ', d:1:1);
                   end
            end;
    if b>c then
       begin
            if b>d then writeln('Nejvetsi cislo je: ', b:1:1) else writeln('Nejvetsi cislo je: ', d:1:1);
       end
       else
           begin
                if c>d then writeln('Nejvetsi cislo je: ', c:1:1) else writeln('Nejvetsi cislo je: ', d:1:1);
       end;
    readln;
end.
