Не забываем про строку
var a,b,c:integer;//Например можно string, int64, и т.д.//
BEGIN
По условию выше, мы просто должны ввести три переменных командой
read(a);
read(b);
read(c);
или как можно это записать:
read(a,b,c);//Вводим три переменных
Условия, здесь уместно использовать команду
if a=b and a=c then //что делать если условие верно//
else // что делать если условие ложно//
END.