Pascal/Turbo Pascal - PASCAL

TENGO Q HACER UN PROGRAMA EN PASCAL QUE:
"QUE PIDA 3 NUMEROS, QUE LOS COMPARE Y QUE DIGA CUAL ES EL MAYOR Y CUAL ES EL MENOR"
POR FAVOR NECESIT AYUDA CON ESTE PROGRAMA.
POR FA..............

DE ANTEMANO GRACIAS POR LA AYUDA¡¡¡¡¡

Hola Christian! Te muestro una posibilidad:

program maymen;
var
a,b,c,min,max : integer;
begin
readln(a,b,c);
max:=a;
if b > max then
max:=b;
if c > max then
max:=c;
min:=a;
if b < min then
min:=b;
if c < min then
min:=c;
writeln('Máximo: ',max);
writeln('Mínimo: ',min);
readln;
end.

Ésta es una resolución simple, sin tener en cuenta que pueda ser más o menos eficiente, lo cual para el caso realmente no tiene importancia.

Un abrazo!

oye mucisimas gracias no sabes del problema que me sacaste.
GRACIAS¡¡¡¡¡¡
ABRAZOS¡¡¡¡