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

В паскале АВС выглядит так:
program dz;
var a:integer;
begin
readln (a);
if a<0 then a:=0;
writeln (a);
end.