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

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

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.