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.