*дано* *целое* *число*. *если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; если нулевым, *то* ""заменить *его* на 10. вывести полученное *число*.

program sa;

uses crt;

var x: integer;

begin

clrscr;

readln(x);

if x> 0 then x: =x+1;

if x< 0 then x: =x-2;

if x=0 then x: =10;

writeln(x);

readln;

end.

Var n : integer; begin read(n); if n = 0 then write('10') else if n > 0 then write(n+1) else if n < 0 then write(n-2); end.

Uses graphabc; var     i, c: integer;     ar: array[1..5]of integer; begin   for i : = 1 to 5 do read(ar[i]);   window.isfixedsize : = true;   window.init(0, 0, 800, 800, cldarkgray);   window.centeronscreen;   setfontsize(32);   for i : = 1 to 5 do c : = c + ar[i].tostring.length;   for i : = 1 to 7 do writeln;   write(' ': 33 - c);   for i : = 1 to 5 do   begin     if(ar[i] mod 2 = 0) and (ar[i] mod 10 < > 0) then       begin       setfontcolor(clred);       write(ar[i]);     end     else if(ar[i] mod 10 = 0) then       begin       setfontcolor(clblue);       write(ar[i]);     end     else if(ar[i] mod 2 < > 0) then     begin       setfontcolor(clyellow);       write(ar[i]);     end   end;   end.

Var     n,a,b: longint;     k: integer; begin k: =0; write('n = '); readln(n); for n: = 1 to n do       begin       a: =n;       b: =0;       while a > 0 do             begin             b: =b*10+(a mod 10);             a: =a div 10             end;       if b=n then k: =k+1       end; writeln('искосое количество: ',k) end.