нужна Составить по блок-сxеме программу. На языке Паскаль.
Заранее

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

if x< 10 then x: =10

else

  if x< 15 then x: = 16

  else x: = 20

для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.

x на первом

у на втором

х+2=у

х+22=3у

отнимаем первое от второго

20=2у

у=10

х=у-2=8