Pascal.
Как записать на языке паскаля D = корень из (b-a) всё к квадрате + (p-c) всё в квадрате

Щас

Program McW0w; Var p,d,c,a,b: integer; begin Write('Введите первую координату : '); Read(a);Write('Введите вторую координату : '); Read(b);Write('Введите третию  координату : '); Read(c);Write('Введите четвёртую координату : '); Read(p);d:= sqrt тут нужно записать корень из (b-a) всё к квадрате + (p-c) всё в квадратеWrite(d);end.

Нууу, p-c и всё в квадрате.

Написано же)

Program McW0w; Var p,d,c,a,b: integer; begin Write('Введите первую координату : '); Read(a);Write('Введите вторую координату : '); Read(b);Write('Введите третию  координату : '); Read(c);Write('Введите четвёртую координату : '); Read(p);d:=sqr(sqr(sqrt(b-a)) + p - c)Write(d);end.

По формуле записать надо d:= Корень из (х2-х1) всё в кв. + (y2-y1) все в кв.

sqr(A*2+b*2)(s+p*2)x+y/215*x-7/2Вроде так,если честно не очень понятно написан вопрос 

d:= sqr(sqr(sqrt(b-a)) + p - c)вероятнее, вы не правильно написали, и p-c должно быть в квадрате, но я сделал как написано