cenas

var     n : integer;
        ans : ansistring;
begin
        writeln;
        writeln;
        repeat
                write('Quem foi o jogador que ganhou a Bola de Ouro em 2013? ');
                read(ans);
                if ans <> 'Cristiano Ronaldo' then
                begin
                        writeln('Errado! Tenta outra vez!');
                end;
        until ans = 'Cristiano Ronaldo';
        writeln('Correto!');
        readln();
        readln();
end.