VAR R,A WHILE 1 REPEAT INPUT "はんけい";R UNTIL R>=0 'Rが負だと再入力(面積は必ず正) A=R*R*PI() PRINT"はんけい";R;"のえんのめんせきは";A WEND