Var a,b,c:integer;
begin
randomize;
a:=random(100)+1;
b:=random(100)+101;
c:=random(50)+201;
writeln('Выигрышный билет для молодежи под номером ',a);
writeln('Выигрышный билет для взрослых под номером ',b);
writeln('Выигрышный билет для стариков под номером ',c);
end.