Write a program that takes a number from the keyboard and turns it positive if negative, or zero otherwise.

The program will be written in the PascalABC.net programming language;

begin // start of the program;

var a: integer; // initialization of the variable to which the number will be written;

read (a); // enter a number from the keyboard;

if a> 0 then // check if the entered number is positive;

begin

a: = a * (- 1); // the sign will be changed by multiplying the number by (-1);

writeln (a); // display the number a;

end else

Println (0); // display zero if the number is negative or zero;

end. // end of the program;