Untitled

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

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