Блок-схема нужна тогда, когда у нас есть ветвления (условия, циклы), а здесь их нет, потому что решение можно записать в одну строчку:
begin
var a, b, c: integer;
readln(a);
readln(b);
readln(c);
writeln((a = b) or (a = c) or (b = c));
end.
Все решение в этой строчке:
(a = b) or (a = c) or (b = c)
