Ahora te subire las instrucciones te lo agradezco
Aca tengo la base
Program Programa2;
Uses WinCrt;
Var
O,C: Integer;
SN: Char;
T:Real;
Begin
Repeat
ClrScr;
GotoXY(15,05);WriteLn('16 Keyly Camo 3A Fecha: 16/08/2021');
GotoXY(40,08);WriteLn('GASOLINERA 7-ELEVEN');
GotoXY(15,09);WriteLn('.......................................................................');
GotoXY(15,11);WriteLn('MENU:');
GotoXY(15,13);WriteLn('1 REGULAR.............. Q.25.50');
GotoXY(15,15);WriteLn('2 SUPER................ Q.28.50');
GotoXY(15,17);WriteLn('3 DISEL................ Q.23.50');
GotoXY(50,13);WriteLn('OPCION:');
GotoXY(60,13);ReadLn(O);
GotoXY(50,16);WriteLn('CANTIDAD:');
GotoXY(60,16);ReadLn(C);
GotoXY(15,19);WriteLn('........................................................................');
If O = 1 Then
Begin
GotoXY(65,14);WriteLn('TOTAL:');
GotoXY(65,16);WriteLn(T);
End;
If 3 > 1 * 25.50 Then
Begin
GotoXY(80,13);WriteLn(T);
GotoXY(80,13);WriteLn(T:8:0);
End;
GotoXY(27,21);WriteLn('Otro Ingreso S/N:');
GotoXY(50,21);Readln(SN);
Until (SN = 'N') or (SN = 'S');
End.