program vetvenie;
uses crt;
var mamsa: char;
begin
  writeln('Ako sa mas?');
  writeln('Stlac d = dobre, z = zle, v = vselijako');
  readln(mamsa);
  case mamsa of
    'd' : writeln('Ak dobre, tak dobre...');
    'z' : writeln('S tym treba nieco robit...');
    'v' : writeln('Uz bude dobre, neboj...');
    else writeln('Musis sa zdokonalovat v citani a pisani...');
  end;
  readln;
end.