Задача 5 Урок 7

Получите от пользователя значения четырёх символьных переменных, выясните -- выполняется ли следующее условие:
""первая переменная равна третьей, не равна второй или третья равна четвертой""

var
    a, b, c, d: char;
    E: boolean;
begin
    writeln ('vvedite symboly');
    readln (a, b, c, d);
    E := (a=c)AND(a<>b)OR(c=d);
    writeln ('Vypolnietsi li uslovie? ', E);
end.