program menuu;
var V: string;
begin
 repeat
 writeln('Sisesta n„dalap„evp„ev (E,T,K,N,R,L,P)');
 writeln('Kirjutage n„dalap„ev suure t„hega. Ait„h!');
 readln(v);
 IF V='E' THEN
 begin
  WRITELN('Läunaks on men��s borsisupp ja piimakissell.');
  writeln('åhtul ole n„ljas.');
 end;
 if v='T' then
 begin
  writeln('Läunal on kartulipuder viineritega.');
  writeln('åhtus””giks osta pitsat.');
 end;
 if v='K' then
 begin
  writeln('J„lle mingi imelik makaronisupp.Jube.');
  writeln('åhtuks prae endale kartuleid.');
 end;
 if v='N' then
 begin
  writeln('T„na on kalap„ev. Nii, et soovitan n„lgida.');
  writeln('åhtuks soovitan teha pannkooke maasika moosiga.');
 end;
 if v='R' then
 begin
  writeln('Läunal s”” kapsarulle ja osta ka paar v„ikest saiakest.');
  writeln('Reede ähtuti on muudki mille peale mäelda. Unusta s””mine.');
 end;
 if v='L' then
 begin
  writeln('Läunani on sul paha ja s””gist mätlemine teeb asja veelgi hullemaks.');
  writeln('S”” midagi kerget, sest sa ei taha ju, et sul tekkiks kehakaaluga probleeme.');
 end;
 if v='P' then
 writeln('Osta poest kooki väi veel parem torti. Sellest peaks �htlasi j„tkuma ka ähtuks.');
 until (v='E') OR (V='T') OR (V='K') OR (V='N') OR (V='R') OR (V='L') OR (V='P');
 writeln('Head isu.');
end.