program lubov;
 var vastus:string;
begin
writeln('štle keda sa armastad ?');
readln (vastus);
repeat
writeln('Käik �tlevad et ',vastus,' Aga �tle keda sa armastad?');
readln(vastus);
if vastus='mine „ra' then writeln ('„ra muretse');
If (vastus='ei �tle ')or (vastus='vait')then writeln ('miks ni');
if vastus ='olen v„sinut' then
begin
writeln (' Noh palun �tle keda  sa armastad');
end;
until (vastus='Keda sa armastad');
writeln('Tore');
end.