Как проверить сразу несколько переменных?

[ClMlD]

Добрый час. Как выполнить проверку ? например:
var
a,b,c,d:integer;
if a , b , c , d = 1 then действие
Только переменных может быть намного больше как выполнить проверку и если все они равны одному значению выполнить действие

var
a,b,c,d:integer;
begin
if a = 1 then
if b = 1 then
if c = 1 then
if d = 1 then
действие

Извините вопрос решен, заработался уже на элементарном туплю

[BDA]

Пока вижу только такой вариант (для большого числа переменных):
Все переменные в массив
Функция f, которая сравнивает все элементы массива на равенство и возвращает соответствующее значение
if f(массив) then действие

или
if (a = 1) and (b = 1) and (c = 1) and (d = 1) then

Еще может зависеть от задачи.
Ну раз разобрались, то хорошо.

[Человек_Борща]

Если переменные одного типа, то вместо них создайте массив и работайте с его ячейками.