Program avtomat;
var a,b,c: integer;
uses crt;
Begin
ClrScr;
randomize;
writeln('Играем?');
readln();
a:=random(2);
if x=0 then
 writeln('Разыгрывается приз на сумму не более 50 руб.!');
 writeln('Ваш приз:   ');
 begin
  b:=random(4);
  case b of
  0:writeln('Банка шпрот');
  1:writeln('Пара носков');
  2:writeln('Дешевые сигареты');
  3:writeln('Пачка чая Lipton');
  readln();
 end;
else
 writeln('Разыгрывается приз на сумму не более 100 руб.!');
 writeln('Ваш приз:   ');
 begin
  c:=random(4);
  case b of
  0:writeln('Пачка вина "Красный лотос"');
  1:writeln('Дорогие сигареты');
  2:writeln('Дешевые наушники');
  3:writeln('Простая однотонная футболка');
  readln();
 end;
End.