Помогите со вторым пожалуйста. В информатике я чайник - поэтому желательно так, чтобы я досконально списал в Паскаль

Var x;y:real;BeginReadln(x);y:=((x-2,5)*x-1)*x-1;Writeln(y);End.Var X1,x2,y1,y2,d:real;BeginReadln(X1,x2,y1,y2);D:=SQRT(SQR(x2-x1)+SQR(y2-y1));Writeln(d);End.