Ответ:
это рамка у меня получилось
Объяснение
procedure Stars(str: integer);
var
i:integer;
begin
for i:=1 to str do
write('*');
end;
1) 6 шара.
//PascalABC.NET 3.4.2
var ar := arrrandom(20, 100, 1000);
ar.Println.Take(10).Sum.Println;
ar.TakeLast(10).Sum.Println;
end.