Паскаль , Выводить на экран случайные числа в диапазоне от 0 до 20 до тех пор, пока очередное случайное число не будет равно одному из трех чисел А, В, С.

vara,b,c,e:integer;beginreadln(a,b,c);e:=-5;while (a<>e) and (b<>e) and (c<>e) dobegine:=random(20)+1;writeln(e);end;end.