1 яхта заедит а2 в то время уедет потом 1 вийдет пойедет куда надо
Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
0 умножить на 0=0
0+0=0 в первой скобке
Неважно, что получится во второй (хотя там 1) умножаем на 0 =0
/////////////////////////////////////////////////////////
var i,p,o:integer;
a:array [1..30] of integer;