Реализовать поиск оптимального решения уравнения, найти корни уравнения 4х1-7х2+7х3+8х4=1 3х1-6х2+7х3+7х4=3 3х1-6х2+6х3+8х4=2 2х1-4х2+5х3+5х4=3

ш, с, в (о-дин, д-ва, т-ри, ч-етыре, п-ять, ш-есть, с-емь, в-

пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб

(около кола _колокола и на колах _колокола)

var a,b,c,d: integer;

begin

  read(a,b,c,d);

  if (a*b*c*d mod 3 = 0) then

        writeln("pravda")

  else writeln("nepravda");

end.

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.