Miscellany

program seeeeeeeemplicee;
var pric,inp,more,nom:integer;nome:string;

begin
     writeln('Scegliete una bibita (Scrivete il numero)');
     writeln('3.  cola');writeln('4.  pepsi');
     nom:=0;
     while not (nom in [3,4]) do
     begin
          write('Vorrei una... ');readln(nom);
     end;
     if nom=3 then
     begin
          nome:='pepsi';
          pric:=100;
     end;
     if nom=4 then
     begin
          nome:='cola';
          pric:=80;
     end;
     writeln('Hai scelto la ',nome,'! Costa ',pric,'centesimi.');
     writeln('Mettere monete da 10,20,50,100 centesimi');
     inp:=0;
     while pric>inp do
     begin
          writeln('Ti mancano ', pric-inp, ' centesimi.');
          more:=0;
          while not (more in [10,20,50,100]) do
          begin
               write('Metti: '); readln(more);
               if more in [10,20,50,100] then begin
                inp:=more+inp;
                end;
               else begin
                writeln('NO');
               end;
          end;
     end;
     if inp>pric then
     begin
          writeln('Hai pagato ',inp-pric,' centesimi di troppo... PECCATO!');
     end;
     writeln('Tieni la tua ',nome,'!!');
     writeln;
     readln
end.