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

Var x;y:real;
Begin
Readln(x);
y:=((x-2,5)*x-1)*x-1;
Writeln(y);
End.

Var X1,x2,y1,y2,d:real;
Begin
Readln(X1,x2,y1,y2);
D:=SQRT(SQR(x2-x1)+SQR(y2-y1));
Writeln(d);
End.