даны три переменные a b c. составить алгоритм который если все они равны выдает об этом сообщение, а в противном случае уменьшает их на 5

var a,b,c: integer;beginreadln(a,b,c);if (a=b)and(b=c) then writeln('Все числа равны')else begin  a:=a-5; b:=b-5; c:=c-5;  writeln('a = ',a,' b = ',b,' c = ',c);  end;end.Пример:7 5 6a = 2 b = 0 c = 1