Как поставить в комнате 5 стульев чтобы вдоль каждой стены стояло по 2 стула?

3стула в углы, 2 стула у тех сторон, где не хватает 2х стульев. как-то так.

Все на фото!

Var n: integer;     a: real; { нахождение суммы ряда } function sum(a: real; n: integer) : real; var i: integer;     s: real; begin     s: =a;     for i: =1 to n do    s: =s*(a-i*n);     result: =s; end; { конец процедуры } { основная программа } begin   write('задайте n:   ');   readln(n);   writeln('задайте a:   ');   readln(a);   writeln('сумма ряда равна:   ',sum(a,n)); end.        

:d  ну го ничего если   на паскале напишу  ?   uses crt; var   a: array[1..50] of integer ; i,j,n,x,t,k: integer; b: string; begin read(n);       for i: = 1 to n do      begin      a[i]: =random(15);       write(a[i],' ');       end;       writeln;       for i: = 1 to n-1 do      for j: = i+1 to n do      if a[i]> a[j] then begin t: =a[i]; a[i]: =a[j]; a[j]: =t; end;       for i: = 1 to n do      write(a[i],' ');       writeln;       read(x);       for i: = 1 to n do        if a[i] = x then k: =k+1;         str(k,b);       n: =length(b);         if k in   [11..19] then write (k,' раз') else        if k = 0 then   write('число ',x,' не встречается ')else      case b[n] of        '0','1','5','6','7','8','9': write (k,' раз');         '3','4','2': write (k,' раза') ;       end; end.