Составьте алгоритм, который проверяет, равны ли 3 данных числа.

Var a,b,c:integer;BeginWriteln('Введите числа a b c ');Readln (a,b,c);If (a=b) and (b=c) and (c=a)  then Write ('Числа равны') else Write ('Числа не равны');End.