end the program in r

# Step 1: Create a vector of numbers from 1 to 10
numbers <- 1:10

# Step 2: Print the vector
print("Original Vector:")
print(numbers)

# Step 3: Calculate the square of each number in the vector
squared_numbers <- numbers^2

# Step 4: Print the squared numbers
print("Squared Numbers:")
print(squared_numbers)

# Step 5: Calculate the sum of the squared numbers
sum_squared <- sum(squared_numbers)

# Step 6: Print the sum of squared numbers
print("Sum of Squared Numbers:")
print(sum_squared)

# Step 7: Check if the sum is greater than 50
if (sum_squared > 50) {
  print("The sum of squared numbers is greater than 50.")
} else {
  print("The sum of squared numbers is not greater than 50.")
}

# Step 8: End the program