Напишите программу,которая принимает с клавиатуры число и превращает его в...

Question

Напишите программу,которая принимает с клавиатуры число и превращает его в положительное,если оно отрицательное,либо в ноль во всех остальных случаях.

Answer 1

var a:integer;

begin

readln(a);

if (a<0) then a:=a*(-1) else a:=0;</p>

writeln(a);

end.

Answer 2

Program zadacha;

var x:integer;

Begin

readln(x);

if (x<0) then a:=abs(x)</p>

             else a:=0;

writeln(x);

end.