Составьте графический алгоритм s=n^2+(n+1)+)^2 где n> 0

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

var a: array [1..10] of integer;

i,k: integer;

begin

  read(a);

  k: =1;

  for i : = 1 to 10 do

  begin

        if a[k]> a[i] then k: =i;

  end;

  if k mod 2 = 0 then writeln(k," - chetnoe")

  else writeln(k," - ne chetnoe");

end.

1)мобильный телефон, монитор, калькулятор, все эвм

program d1; varx1,x2,y1,y2,d: real; beginread(x1); read(x2); read(y1); read(y2); //d: =sqrt(sqr(x2-x1)+sqr(y2-y1)); write('ðàñòîÿíèå ìåæäó òî÷êàìè: ',d); end.