1.
var
a : integer;
begin
readln(a);
if (a > 0) and (a < 256) then writeln ("Klass C")
else if (a >= 256) and (a < 65535) then writeln("Klass B")
else if (a > 65535) then writeln("Klass A");
end.
2.
var
a : integer;
begin
writeln("Введите номер весеннего месяца");
readln(a);
if (a >= 3) and (a <= 5) then
begin
case a of
3 : writeln("Март");
4 : writeln("Апрель");
5: writeln("Май");
end;
end
else writeln("Это не весенний месяц");
end.