salve ho questo programma che mi calcola le 4 operzioni fondamentali, come con il C ho problemi, sul fatto che faccio un'addizione, e non mi torna all menu iniziale, continua fino
alla sottrazione e poi chiude il programma
ecco il codice:
codice:
pascal
program calcolatrice;
uses crt;

var
piu,piu2,s,moltiplicazione,divisione,meno:real;

i,errore,scegli2,meno2:integer;

scegli:string;
piu3:string;

begin
clrscr;
i:=0;

for i:= 1 to 80 do
write(char( 205));
gotoxy(20,2);
writeln('Le quattro operazioni da eseguire');
textcolor(10);
textcolor(10);
for i:=1 to 80 do
write (char(205));

textcolor(9);
for i:=1 to 3 do
write(' ');

gotoxy(20,7);
write ('1-Addizione');
gotoxy(20,9);
write ('1-Sottrazione');
gotoxy(20,11);
write ('1-Moltiplicazione');
gotoxy(20,13);
write ('1-Divisione');
gotoxy(20,15);
writeln ('1-Fine programma');
repeat



writeln(' SCEGLI');



readln(scegli);

val (scegli,scegli2,errore);
if errore <>0 then
writeln('errore inserisci un numero in cifre')
else
if scegli2 <0 then
writeln('errore inserisci un numero uguale o superiore a 0');
until (scegli2>=0) and (errore=0);


if scegli2 =1 then
begin
clrscr;
textcolor(yellow);
for i:= 1 to 80 do
write(char(205));
gotoxy (20,4);
writeln ('ADDIZIONE');
for i:= 1 to 80 do
write (char(205));
gotoxy(20,8);


write('Dammi il primo numero');


readln(piu);
gotoxy(20,8);
write('Dammi il secondo numero');
readln(piu2);
s:=piu+piu2;
gotoxy(20,12);
write( 'somma =',s:0:2 );
readln;
readln;





end;

begin
clrscr;
if scegli2=2 then
textcolor(red);
for i:= 1 to 80 do
write(char(205));

gotoxy(20,4);
Writeln('Sottrazioni');
for i:= 1 to 80 do
write(char(205));
write('dammi il primo numero');
readln(meno);
write('Damm il secondo numero');
readln (meno2);

s:=meno-meno2;

gotoxy(20,12);
writeln('somma =', s:0:2);
readln;
end;



end.