как вводить данные процедура read()

Вопрос как вводить данные в процедуре read() я решил задачу

var
a,b,c:integer;//числа
b1, b2:boolean;//для хранения результатов проверок
 
begin
   write('Vvedite  chislo A, B, C: ');
   read(a, b, c);//читаем переменные списком
   b1:=(A > B) and (A < C);
   b2:=(A > C) and (A < B);
   writeln('Число А находится между числами В и С -', b1 or b2);
   readln();
end.   

Через запятую или как