Даны 3 переменные,составить программу:если все они =;выдает сообщение:переменные=,в противном случае каждую из них увеличь на 10

Program n1; var a,b,c: real; begin readln(a,b,c); if (a=b) and (a=c) and (c=b) then writeln('переменные =') else begin a:=a+10; b:=b+10; c:=c+10; end; end.