Necesito que alguien me brinde apoyo en realizar un programa en Pascal por favor, soy nuevo en esto.
aqui tienes esto.
Program Programa2;
Uses Crt;
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);
repeat
sn := readkey;
until sn in['1','2','3'];
GotoXY(50,16);WriteLn('CANTIDAD:');
GotoXY(60,16);ReadLn(C);
GotoXY(15,19);WriteLn('...............................................');
case sn of
'1' : begin
GotoXY(65,14);WriteLn('TOTAL:');
GotoXY(65,16);WriteLn(25.50 * c:0:2);
end;
'2' : begin
GotoXY(65,14);WriteLn('TOTAL:');
GotoXY(65,16);WriteLn(28.50 * c:0:2);
end;
'3' : begin
GotoXY(65,14);WriteLn('TOTAL:');
GotoXY(65,16);WriteLn(23.50 * c:0:2);
end;
end;
GotoXY(27,21);WriteLn('Otro Ingreso S/N:');
GotoXY(50,21);
repeat
SN := upcase(readkey);
until sn in['N','S'];
Until SN = 'N';
End.
