PROGRAME PASCAL

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.141const pi=3.141raza,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.

download