Переадресуйте формулу
« =В5*100/С8 »
1)на 1 строку ниже
2) на 1 столбец вправо?

клинопись

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

2я скобка после --> всегда будет ложно 

а значит и 1 должна быть ложна т.к 0 --> 0 = 1,дгугие случаи не подходят.

ну и если поставить пару значений посчитать то х=2 самый лучший вариант

(25< 2(2+1)(2+> (2< 1)

25< 24 это лож

и 2< 1 тоже лож. а 0 --> 0 есть 1 

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

      s: real;

      n,i: integer;

begin

  n: =0;

  s: =0;

  for i: =1 to 10 do begin 

    readln(a[i]);  

    if a[i]< 0 then s: =s+a[i];

    if a[i] mod 2 =0 then n: =n+1;

                            end;

  writeln(s,', ',n);

end.