Program Elevant; var s: string; begin writeln('osta elevant „ra'); while(true) do begin readln(s); writeln('Käik tlevad, et ',s,', kuid osta elevant „ra!'); end; end.