Programe pascal

program suma program suma program vect
var varvar
s,n,i integer s,a,brealxarray1..10 ofinteger
begin beginn,iinteger
readn readnbegin
s0readnreadn
for i1 to in dosa11nfor i1 to in do
ssiwritesreadxi
writesend.for i1 to in do
end.write en xi
end.

program calcul arieprogram calcul arie
const pi3.1415926const pi3.1415926
var raza,ariarealvar raza, aria real
beginbegin
readlnrazareadlnraza
if raza0 thenariapisqrraza
writelnimposibilwritelnaria
elseend.
begin
ariapisqrraza
writelnaria este , aria
end
end.