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

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