составить программу определяющую одинаковый ли знак у двух заданных чисел. Ответ должен быть в виде: DA / NET

Тогда там будет не >= , а прост>

Нет, не "прост", потому что ввод обоих нулей не отработает.

Но автору вопроса это все, походу, пофигу ))))))

А, точно)

Хах, ну есть такое

vara,b:integer;beginWriteln('Введите числа');Readln(a,b);If a*b>=0 then Writeln('DA') else Writeln('Net');end.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b):=ReadReal2('Введите через пробел два числа');  if Sign(a)=Sign(b) then Writeln('DA') else Writeln('NET')end.ПримерВведите через пробел два числа -345.43 12NET