Program zadanie;
var tablica:array[0..9] of integer;
i,suma:integer;
begin
	randomize;
	for i:=0 to 9 do
	begin
		tablica[i]:=random(10)+1;
		write(tablica[i],' ');
	end;
	writeln;
	for i:=0 to 9 do
	suma:=suma+tablica[i];
	writeln('Suma wynosi: ',suma);
	readln;
end.