PROGRAME PASCAL

PROGRAM suma; PROGRAM suma; PROGRAM vect;

VAR VAR VAR

S,n,I: integer; S,A,B:real; x:array[1..10] ofinteger

BEGIN BEGIN n,i:integer;

READ(n); READ(n); BEGIN 48646jrx99ycp4t

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(x[i]);

WRITE(S); END. for i:=1 to n do rc646j8499yccp

END. WRITE en (x[i]);

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.