PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var c:=ReadlnChar('Введите с, о, д или г:');
case c of
'с':Writeln('снег');
'о':Writeln('облачно');
'д':Writeln('дождь');
'г':Writeln('гололедица');
else Writeln('неверный ввод')
end
end.