Напиши программу для рисования двух фигур ​

//Pascal ABC.NET v3.1 сборка 1172

//1

Var
 ar:array[1..5] of integer;
 i,s:integer;
begin
 randomize;
 writeln('Array:');
  for i:=1 to 5 do
   begin
    ar[i]:=random(5,37);
    writeln(ar[i]);
    s:=s+ar[i];
   end;
 writeln('Sum=',s);
end.

//2

Var
 ar:array[1..20] of integer;
 i,s:integer;
begin
 randomize;
 writeln('Array:');
  for i:=1 to 20 do
   begin
    ar[i]:=random(-77,123);
    writeln(ar[i]);
    if ar[i] mod 2<>0 then s:=s+1;
   end;
 writeln('Count=',s);
end.

//3

Var
 ar:array[1..5] of integer;
 i:integer;
 r:real;
begin
 writeln('Array:');
  for i:=1 to 5 do
   begin
    readln(ar[i]);
    r:=r+ar[i];
   end;
 r:=r/5;
 writeln('Res=',r);
end.