Как записать x-c в квадрате на паскале?

(X-C)*(X-C)
Эт те формула а чо там писать уже не помню Begin Writeln('Гашиш"); Потом вроде Readln(x); Потом Writeln("Гашиш2"); Readln(c); A : = (x-c)*(x-c) Writeln(a); End. И потом молодец садись 2 х)

exp(2 * ln(x-c))