Написать программу ввода с клавиатуры значения координат точки и вывода на экран расстояния точки до начала координат

Var
   X,Y:real;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
WriteLn('L = ',Sqrt(X*X+Y*Y))
End.