Pascal/Turbo Pascal - Ayuda con Ejercicio de pascal

program programa;

Uses math;

var

c : Integer;

d : Integer;

e : Integer;

begin

Writeln('ingrese el primer numero');

Readln(c);

writeln;

Writeln('ingrese el segundo numero ');

Readln(d);

writeln;

Writeln('ingrese el tercer numero ');

Readln(e);

writeln;

Writeln('el numero mayor es ',Max(Max(c,d),e));

Writeln('el numero menor es ',Min(Min(c,d),e));

if (c=d) or (c=e) or (d=e) then Writeln('por lo menos dos de los tres valores son iguales');

Readln;

end.