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

Var
a,b,c,e:integer;
begin
readln(a,b,c);
e:=-5;
while (ae) and (be) and (ce) do
begin
e:=random(20)+1;
writeln(e);
end;end.