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

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