2007年潍坊市青少年信息学奥林匹克竞赛试题（普及组）
考试时间：13：30－16：30
考生须知：
★若试卷中试题字迹不清，考生可以在审题时举手请求解释，由考务人员加以说明。涉及题意理解问题，则不得提问且考务人员不予解答；
★考生必须持准考证对号入座，考试结束前按要求上传到服务器上；
★本试卷共四题，满分100分。
★程序名字严格按照试卷要求命名，否则不得分，答题完毕后只上交源程序。
1.文件名：program1.pas/c/cpp （15分；说明：.pas/c/cpp是指，若编程语言为Pascal，则后缀为.pas，语言为C，则后缀为.C，语言为C++，则后缀为.CPP，以下同）
【问题描述】
输入圆的半径R（1