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