t_07_13_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
написать фрагмент программы для
а)вывода на экран значения переменной х (цвет)
б)ввода заданного во входном файле знаения типа "буква" и присвоить его переменной у}

type colour = (black,grey,white);
     letter = (a,b,c);
var x: colour; y: letter;
    ch: char;
{a} if x=black then write('black');
    if x=grey then write('grey');
    if x=white then write('white');
{b} read(ch);
    if ch='a' then y:=a;
    if ch='b' then y:=b;
    if ch='c' then y:=c;