Составить программу получающую на входе целое число a. Если a меньше 0, тогда a:=a+3, иначе a:=a-1. Какой результат выдаст программа при a = 0, a = -5, a=5? Составить программу в паскаль, если можно то скрином из паскаля!

var

 a: integer;

begin

 Read(a);

 if a < 0 then a := a + 3 else a := a - 1;

 Writeln('Конечный результат', a);

end.

Тестовое решениеЖ

Введите А := 0

Конечный результат-1

Введите А  -5

Конечный результат-2

Введите А  -5

Конечный результат 4

Class ArrayMultiplication{
 public static void main(String args[]){
  String fileName = "Array.txt", aNum = ""; int nArray[] = new int[201], iChar; nArray[0] = 0; long rMulti;
  java.io.FileReader iFile = null; java.io.FileWriter oFile = null;
  try{
   iFile = new java.io.FileReader(fileName);
   while((iChar = iFile.read())!=-1)
    if(iChar!=' ')aNum+=(char)iChar;
    else {nArray[++nArray[0]] = new Integer(aNum);aNum="";}
   if(!aNum.equals(""))nArray[++nArray[0]] = new Integer(aNum);
   oFile = new java.io.FileWriter(fileName);
   for(rMulti = 1; nArray[0]>0; nArray[0]--)rMulti*=nArray[nArray[0]];
   oFile.write(rMulti+"");
  }catch(java.io.FileNotFoundException fnfe){
   System.out.println("Файл не был найден!");
  }catch(java.io.IOException ioe){
   System.out.println("Ошибка ввода/вывода в файл!");
  }finally{
   try{
 iFile.close(); oFile.close();
   }catch(java.io.IOException ioe){
 System.out.println("Ошибка закрытия файла ввода/вывода!");
   }
  }
 }
}

1) в лодке поехали 2 разбойника, один остался на другом берегу, а второй поплил за другими, на старте остались один разбойник и три купца

2) разбойник взял на борт одного купца и висадил его к разбойнику на другой берег, итого осталось на старте 2 купца и 1 разбойник

3) разбойник взял еще одного купца и привез его на финиш, на старте осталось по ровну, а на финише 2 купца и 1 разбойник

4)разбойник взял купца, на финише 3 купца и 1 разбойник, а на старте 1 разбойник

5)разбойник перевез оставшегось разбойника, итого на финише 3 купца и 3 разбойника