Система - это целое<span>, </span>состоящее из частей<span>, </span>взаимосвязанных между собой<span>.</span>
Если это живой объект, то управлять можно только с его согласием.
Var a:char;
b:real;
begin
writeln( 'Введите месяц и день', a, b);
readln (a,b);
if a='т' then Writeln( 'тяп ', b);
if a='л' then Writeln( 'ляк ',b);
if a='м' then Writeln( 'мяк ',b);
if a='б' then Writeln( 'бяк ',b);
end.