338 байтов для кодирования 300 различных значений
var
a: <em>integer</em>;
begin
write('Enter your age: ');
readln(a);
writeln('Your age in months is ', a * 12);
<span>end.</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.