Намалювати два кола, розмір кіл обрати випадковим чином

Намалювати коло в випадковому місці. Необхідно випадково обрати x та y, а потім використати команду goto(x, y)

Намалювати 10 кіл в випадкових місцях, випадково обраним розміром
команды в пайтоне

Var a1,a2,a3,a4,a5,max: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5); 
  begin
if (a1>a2) then max:= a1else max:=a2;
if (a2>a3) then max:=a2else max:=a3;
if (a3>a4) then max:=a3else max:=a4;
if (a4>a5) then max:=a4else max:=a5; 
  end;
writeln (max);
end. 
Аналогично с минимальным числом.
var a1,a2,a3,a4,a5,min: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5); 
  begin
if (a1<a2) then min:= a1else min:=a2;
if (a2<a3) then min:=a2else min:=a3;
if (a3<a4) then min:=a3else min:=a4;
if (a4<a5) then min:=a4else min:=a5; 
  end;
writeln (min);
end.  
Можно так же решить с массива, если нужно пишите.

В пе­ре­мен­ной s сум­ми­ру­ют­ся раз­но­сти эле­мен­тов, иду­щих друг за дру­гом. Для того, чтобы s была наи­мень­шей после вы­пол­не­ния про­грам­мы, не­об­хо­ди­мо, чтобы раз­ность эле­мен­тов была наи­мень­шей. По­сколь­ку мас­сив це­ло­чис­лен­ный, наи­мень­шая раз­ность равна еди­ни­це. Ал­го­ритм об­ра­ба­ты­ва­ет пер­вые де­сять эле­мен­тов мас­си­ва, сле­до­ва­тель­но, наи­мень­шее зна­че­ние, ко­то­рое может иметь пе­ре­мен­ная s после вы­пол­не­ния дан­ной про­грам­мы, равно 27 + 10 · 1 = 37. ответ: 37.