Икт. составить программу: z=√|-ax+y| / in |x+y^2|, где y= -a^5x+b*cosx^2+b

т.к 3 вида флагов, значит возводим число 3 в степень равную кол-ву флагов

ответ: 81 сигнал 

var a,b,c,d: real;

begin

    read(a,b,c,d);

    if ((a< c) and (b< d)) or ((b< c) and (a< d)) then

        writeln('впишется')

    else writeln('не впишется');

end.

var a,b,c: real;

begin

    read(a,b,c);

    if (a> b) and (a> c) then a: = b*c;

    if (b> a) and (b> c) then a: = a*c;

    if (c> b) and (c> a) then a: = b*a;

    writeln(a);

end.

3)var x,y,z,u: real; function max(x,y,z: real): real; begin  if (x> =y) and (x> =z) then max: = x;   if (y> =x) and (y> =z) then max: = y;   if (z> =y) and (z> =x) then max: = z; end; function min(x,y,z: real): real; begin  if (x< =y) and (x< =z) then min: = x;   if (y< =x) and (y< =z) then min: = y;   if (z< =y) and (z< =x) then min: = z; end; begin      read(x,y,z);       u: =(max(x,y,z)*max(x,y,z)-exp(x*ln(/(sin(2*x)+max(x,y,z)/min(x,y,z));       writeln(u); end.

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.