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= 'jah');
writeln ('Tubli inimene, ostiski elevandi „ra!');
end.