Pascal/Turbo Pascal - ejercicio de turbo pascal !ayuda!

hola, programadores y programadoras de este foro tan util tengo el siguiente problema y quiero resolverlo

me iden que ejecute un programa en turbo pascal con las siguientes caracteristicas:



en una cafeteria venden empanadas
si un cliente compra 2 empanadas se obsequia refresco
si un cliente compra 3 empanadas se le obsequia 2 refrescos
si un cliente compra mas de 4 empanadas se le obsequia un redresco y un cafe

espero me puedan ayudar, se los sabre agradecer.

Jeje, me parece que faltan un poco de detalles, ¿o es que el enunciado dice exactamente eso?,

Una posible resolucion seria la siguiente:
preguntar cuantas empanadas quiere comprar(con un write);
luego ingresar desde teclado la cantidad de empanadas (con un readln o read);
después hacer una anidación de if
------si en número ingresado es 2 entonces
----------escribir "se ha echo acrededor de un refresco gratis" (con writeln);
------sino
---------¿el numero ingresado es 3?
---------si: escribir "se ha echo acrededor de dos refrescos gratis" (con writeln);
---------no: escribir "se ha echo acrededor de un refresco y un café gratis" (con writeln);


funcionaria casi igual con un case en vez de un if anidado.
Pero aún así no está claro que tenés que hacer con esas descripciones.

si de todas maneras muchas gracias eso me servirá de discusión con el profesor, el coloco esos parametros para el ejercicio...........

gracias son muy buenos en esto......

Um... creo que el until debería ir al final del case, ya que sino lo único que hace es limpiar la pantalla y preguntar por la cantidad de empanada, pero la opción del case siempre será 0m y debido a que no hay un case else seguirá de largo y terminará o lanzará un error(dudo lo del error, me inclino más al pasarse el case);

Pues sí, y no. Me explico:

Con ese repeat no se trata de repetir pedidos sino de que no se introduzca una cantidad menor que cero, ya que no tendría sentido que alguien pidiera, por ejemplo, -2 empanadas. Lo que sí podrías hacer es utilizar otra estructura repetitiva para que se ejecutara esa parte mientras no se cumpla una condición. Por ejemplo, mientras el número de empanadas no sea igual a cero. Una forma de resolverlo sería por ejemplo la siguiente: