program elevant;
var vastus: string;
begin
 writeln('Osta elevant „ra!');
 readln(vastus);
 repeat
  writeln('K“ik tlevad ', vastus,', kuid osta elevant „ra!');
  readln(vastus);
  if vastus='vait' then writeln('„ra karju!');
  if (vastus='ei') or (vastus = 'ei osta') then
     writeln('negativist selline!');
  if vastus='pagan' then
     begin
      writeln('Žra mitte pagi ropendada!');
      writeln('See ei ole ilus.');
     end;
 until (vastus = 'hea kll') or (vastus='jah') or (vastus='ja');
 writeln('Tubli inimene, ostiski elevandi „ra!');
end.