Program to find Perimeter of Square

@0,6 say "Program to find perimeter of Square"
? ""
Input "Enter Side of Square = " to s
p = s * 4
? "Perimeter = ", p