Помогите с программой! Почему — то не хочет запускатся на паскале!

Помогите с программой!Почему -то не хочет запускатся на паскале!
PROGRAM ARINA;
VAR Q,A,C,Z:INTEGER;
BEGIN
Q:=RANDOM(10);
READ(A);
IF Q=A THEN WRITE ('UGADAL')
ELSE WRITE ('NE UGADAL');
ELSE A=C THEN WRITE ('ZANOVO');
ELSE A=Z THEN WRITELN ('ZANOVO');
READ(C);
IF Q=C THEN WRITE ('UGADAL')
ELSE WRITE ('NE UGADAL');
ELSE C=A THEN WRITE ('ZANOVO');
ELSE C=Z THEN WRITELN ('ZANOVO');
READ(Z);
IF Q=Z THEN WRITE ('UGADAL')
ELSE WRITE ('NE UGADAL');
ELSE Z=A THEN WRITE ('ZANOVO');
ELSE Z=C THEN WRITELN ('ZANOVO');
END.

  • Невооруженным глазом вижу по три ELSE на каждый IF.
    Правда, и остальная логика в программе не лучше :(
  • путаете ELSE и ELSE IF
  • Дочке помогаете?
    Во-первых, некоторые компиляторы чувствительны к регистру, т. е. не надо операторы писать прописными буквами.
    Во-вторых, соблюдайте форматирование кода, тогда в вашей программе будет гораздо проще разобраться не только незнакомому человеку, но и вам самим.
    В-третьих, множественное ветвление if-else работает вот так:
    if условие1 then действие1
    else if условие2 then действие2
    else if условие3 then действие3
    ....
    else if условиеN then действиеN
    else условиеN+1 then действиеN+1

    также советую прочитать про switch-case