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

Var a,b,c: integer;
begin
readln(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 6
a = 2 b = 0 c = 1