Нужно сделать ! "известно, что кузнечик выполнил программу, в которой 4 команды вправо2, а команд влево3 в два раза меньше" нужно записаь одну команду , на которую можно заменить эту программу!

1 команда вправо2

конец программы : ) 

const

  szm = 10;

  szn = 10;

var

  a: array[1..szm, 1..szn] of integer;

  m, n, i, j, count: integer;

begin

  m : = 3;

  n : = 4;

 

  {ввод массива}

  for i : = 1 to m do

    for j : = 1 to n do

      a[i, j] : = (i - 1) * n + j; //если ввод вручную, тогда read(a[i,j])

  {вывод массива}  

  for i : = 1 to m do

  begin

    for j : = 1 to n do

      write(a[i, j]: 4);

    writeln;

  end;

  {подсчет четных}

  for i : = 1 to m do

    for j : = 1 to n do

      if a[i, j] mod 2 = 0 then count += 1;

  write('количество четных: ', count)

end.

погляди, так ты хотел?

#include < iostream>

#include < stack>

using namespace std;

int main()

{

    setlocale(lc_all,"rus");

    cout< < "введите положительное число: ";

    stack < int> steck;

    int a=0;

    cin> > a;

    int b=a+1;

    int c=(a+b)*1.5;

    steck.push(c);

    cout< < "значение c, равное "< < steck.top()< < " в стеке";

    return 0;

}