Дано целое число. Написать программу, которая заменяет его на 0, если число отрицательное, и выводит его без изменений, в противном случае.

Вот такая программа (для PascalABC.NET). И еще ты не сказал, что делать с числом, если оно равно 0?var a,x:integer;beginread(a);if a<0 then x:=0 else x:=a;writeln(x);end.Не забудь откомпилировать перед проверкой.