Запись Повтори k раз
Команда1 Команда2 КомандаЗ
Конец
означает, что последовательность команд Команда1 Команда2 КомандаЗ повторится k раз.
Чертёжнику был дан для исполнения следующий алгоритм:
Повтори 5 paз
Сместиться на (0, 1) Сместиться на (−2, 3) Сместиться на (4, −5) Конец
Каковы координаты точки, с которой Чертёжник начинал движение, если в конце он оказался в точке с координатами (−1, −1)?
1) (−11, 4) 2) (4, −11) 3) (8, 22) 4) (22, 8)

На Java:

1)

int x = new Scanner(System.in).nextInt(); //Вводим возраст

//7-10 - начальная школа

//11-15 - средняя школа

//16-17 - старшая школа

if (x >= 7 && x <= 10)

System.out.println("Начальная")

else if (x >= 11 && x <= 15)

System.out.println("Средняя")

else if (x == 16 || x == 17)

System.out.println("Старшая")

2)

int x = new Scanner(System.in).nextInt(); //Вводим число

if (x > 0)

System.out.println("1");

else if (x < 0)

System.out.println("-1");

else

System.out.println("0");

3)

int x = new Scanner(System.in).nextInt(); //Вводим оценку

switch(x) {

case 5:

System.out.println("отлично");

break;

case 4:

System.out.println("хорошо");

break;

case 3:

System.out.println("удовлетворительно");

break;

case 2:

System.out.println("неудовлетворительно");

}

Объяснение:

Всё это надо записать под отдельные функции, либо под главную исполняемую, чтобы вызвать глобально:

public static void main(String... arguments) {}

вариант решения, если элементы вводятся
var
  n, i, x, s : integer;
  t: string;
begin
  writeln('количество чисел');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' число:');
      readln(x);
      if (x > 9) and (x<100)) then
        begin
          t :=  IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 0;
  for i := 1 to n do
     begin
      x := m1[i];
      if (x > 9) and (x<100)) then
        begin
          t := IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.