Smješan školski zadatak

Code:
PROGRAM Redosljed;
VAR min,sr,max,x,y,z:integer;
BEGIN
WRITE('Unesi prvi broj za x=');
READLN(x);
WRITE('Unesi drugi broj za y=');
READLN(y);
WRITE('Unesi reci broj za z=');
READLN(z);
IF min=x THEN BEGIN
IF y<min THEN min:=y;
IF z<min THEN min:=z;
END;
IF sr=x THEN BEGIN
IF min<y THEN sr:=y;
IF min<z THEN sr:=z;
END;
IF max=x THEN BEGIN
IF max<x THEN max:=y;
IF max<z THEN max:=z;
END;
WRITELN('Redosljed tri broja od najmanjeg do najveceg je slijedeci',min,sr,max);
END.

Code:
PROGRAM Redosljed;
VAR min,sr,max,x,y,z:integer;
BEGIN
WRITE('Unesi prvi broj za x=');
READLN(x);
WRITE('Unesi drugi broj za y=');
READLN(y);
WRITE('Unesi reci broj za z=');
READLN(z);
IF min=x GO TO -
IF min=y GO TO -
IF min=z GO TO -
END;
IF sr=x GO TO -
IF sr=y GO TO -
IF sr=z GO TO -
END;
IF max=x GO TO -
IF max=y GO TO -
IF max=z GO TO -
END;
WRITELN('Redosljed tri broja od najmanjeg do najveceg je slijedeci',min,sr,max);
END.

Code:
PROGRAM Max_tri_broja;
VAR
    a,b,c,max:real;
BEGIN
    writeln('Unesite tri broja odvojena razmacima');
    read(a,b,c);
    max:=a;
    if max<b then max:=b;
    if max<c then max:=c;
    writeln('Max broj je:',max:1:2)
END.