Question

Даны три числа a, b, c. определить, есть ли среди них отрицательные, и вывести сообщение на экран.

Answer 1

Var a,b,c:integer;beginreadln(a);readln(b);readln(c);if (a<0) or (b<0) or (c<0) then writeln('Отрицательные есть!') elsewriteln('Отрицательных нету!');end.