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

Вот такая программа (для PascalABC.NET). И еще ты не сказал, что делать с числом, если оно равно 0?

var a,x:integer;
begin
read(a);
if a<0 then x:=0 else x:=a;
writeln(x);
end.

Не забудь откомпилировать перед проверкой.