ПОМОГИТЕ ПОЖАЛУЙСТА! уровень 1 задача 1

Question

ПОМОГИТЕ ПОЖАЛУЙСТА! уровень 1 задача 1

---

Answer 1

Var a,b,c: integer;
begin
write('a, b, c:');
readln(a,b,c);
writeln((a=b)and(a=c)and(b=c));
end.

Пример:
a, b, c:
5 8 6
False