program esercizio1pag26;
var
    n1,n2,n3,n4:integer;
    procedure scambio(var x,y:integer);
        var
            t:integer;
        begin
            if(x>y)then
                begin
                    t:=x;
                    x:=y;
                    y:=t;
                end;
        end;
begin
    writeln('Dammi i 4 numeri');
    readln(n1);
    readln(n2);
    readln(n3);
    readln(n4);
    scambio(n1,n2);
    scambio(n2,n3);
    scambio(n3,n4);
    writeln('Il numero più grande è ',n4);
    readln;
end.