PROGRAM suma; PROGRAM suma; PROGRAM vect; b9e14eo
VAR VAR VAR
S,n,I: integer; S,A,B:real; x:arraya1..10i ofinteger
BEGIN BEGIN n,i:integer;
READ(n); READ(n); BEGIN
S:=0; READ(n); read(n)
For I:=1 to n do S:=(A+1)*1/n; for i:=1 to n do
S:=S+I WRITE(S); read(xaii);
WRITE(S); END. for i:=1 to n do
END. WRITE en (xaii);
END.

PROGRAM calcul arie; PROGRAM calcul arie; const pi=3.1415926; const pi=3.1415926;

VAR raza,aria:Real; VAR raza, aria: real;
BEGIN BEGIN
READLn(raza); READLn(raza); if raza<=0 then aria:=pi*Sqr(raza);
WRITELn(`imposibil`) WRITELn(aria) else END.
BEGIN aria:=pi*Sqr(raza);
WRITELn(`aria este: ` , aria)
END
END.