Дано условие: y={x,     если x>0 0,       если x=0 -x,     если x<0

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

​

Begin   var a: integer;   readln(a);   for i: integer : = 1 to abs(a) do     if (a mod i = 0) then       writeln('> ', i); end.========================function simple(a: integer): boolean; begin  result : = true;   for i: integer : = 2 to (a div 2) do    if (a mod i = 0) then      begin      result : = false;       break;     end; end; begin  var a: integer;   readln(a);   writeln(simple(a)); end. ======================== var   a: integer; begin   readln(a);   for i: byte : = length(a.  downto 1 do     write(a.tostring()[i]); end.==========================function simple(a: integer): boolean; begin  result : = true;   for i: integer : = 2 to (a div 2) do    if (a mod i = 0) then      begin      result : = false;       break;     end; end; function par(a: integer): string; begin  for i: byte : = length(a. downto 1 do    result += a.tostring()[i]; end;     begin  var a: integer;   readln(a);   for i: integer : = 1 to abs(a) do    if ((a mod i = 0) and (simple(a)) and (par(a) = inttostr( then      writeln('> ', i); end.==========================