Помогите решить информатика 8 класс

1) "Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число":

 Program P1; 

uses crt; 

var a: integer; 

begin 

clrscr; 

write ('Введите с клавиатуры целое число, после чего нажмите клавишу Enter: '); 

readln (a); 

if a>0 then a:=a+1 else a:=a-2; 

writeln ('Ответ: ', a); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

2) "Для данного целого x найти значение следующей функции f, принимающей значения целого типа: f(x) = 2·x, если x 2, f(x) = –3·x, в противном случае." - тут непонятно: что если x 2? - x>2? В общем - ставлю в условии больше - если ошибаюсь поменяйте знак ">" в строке "if x>2 then writeln ('Ответ: f(x)=f(', x, ')=', 2*x) else writeln ('Ответ: f(x)=f(', x, ')=', -3*x);". Знак "меньше" пишется как "<" знак "равно", как "=", знак больше или равно как ">=", меньше или равно - как "<=":

 Program P2; 

uses crt; 

var x: integer; 

begin 

clrscr; 

write ('Введите с клавиатуры значение переменной x (целое число), после чего нажмите клавишу Enter: x='); 

readln (x); 

if x>2 then writeln ('Ответ: f(x)=f(', x, ')=', 2*x) else  writeln ('Ответ: f(x)=f(', x, ')=', -3*x); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Python:

 A = int(input()) 

if A > 0: 

    A += 1 

else: 

    A -= 2 

print(A) 

Pascal:

 program If2; 

var 

  N : Integer; 

begin 

  Write('Введите целое число: '); 

  Readln(N); 

  if N>0 then N:=n+1 

  else N:=n-2; 

  writeln(N); 

end. 

C:

 #include  

  

int main(void) 

{ 

   int a; 

   printf("a:"); 

   scanf ("%i", &a); 

   if (a>0) 

      a++; 

   else 

      a=a-2; 

  

   printf("%i\n",a); 

   return 0; 

} 

C++:

 #include  

  

using namespace std; 

  

int main() 

{ 

   int a; 

   cout > a; 

   if (a>0) 

      a++; 

   else 

      a=a-2; 

   cout  0) 

                a++; 

            else 

                a = a - 2; 

            Console.Write(a); 

            Console.ReadKey(); 

        } 

    } 

} 

Java:

 package abramyan; 

  

import java.util.Scanner; 

  

public class Abramyan { 

  

    public static void main(String[] args) { 

  

        Scanner in = new Scanner(System.in); 

        System.out.print("a:"); 

        int a = in.nextInt(); 

         

        if (a>0) 

            a++; 

         else 

            a=a-2; 

         

        System.out.println(a); 

        in.close();     

    } 

} 

var x, f: integer;
begin
// Ввод целого числа
readln(x);

// Если число положительное, то прибавить 1; в противном случае вычесть из него 2
if x > 0 then
x := x + 1
else
x := x - 2;

// Вывод полученного числа
writeln(x);

// Для данного целого x найти значение функции f
if x > 2 then
f := 2 * x
else
f := -3 * x;

// Вывод значения функции f
writeln(f);
end.