Определить значение переменной у после выполнения следующих фрагментов программы:
у := 1.5; for i := 1 to 4 do у := у - i;
у := 2; for k := 4 downto 1 do у : = у * k;
у := 5; for n := 1 downto 4 do у := у + n;
у := 1; for i := 1 to 3 do begin у := у +1 ; у := у + i; end;
у := 0; for i := 4 to 6 do у := у + i ; у := у / 10;
у := 1; for i := 0 downto -2 do у := у - i; у := у * 10;
y := 0; for n := 4 downto 2 do begin y := y + n; y := y * 10; end;

Определить значение переменной у после выполнения следующих фрагментов программы:
Var у : real; i : integer; у := 1 ; i := 5; while i> 2 do i:= i - 1; y:=y + 1 * i;
Var у : real; i : integer; у := 1 ; i := 2 ; repeat i:= 2 * i; y:=y + i until i > 5;
Var у : real; i : integer; у := 1 ; i := 1; while i< 5 do i:= i+1; y:=y+1 * i;
Var у : real; i : integer; у := 1 ; i := 1; while i > 1 do begin y:=y + 1 / i; i:= I – 1; end;
Var у : real; i : integer; у := 1 ; i := 5; repeat i:= 2 * i; y:=y + i until i > 5;
Var у : real; i : integer; у := 1 ; i := 1; repeat y:= y + 1 / i; i:= I - 1 until i <= 1;

1. МОДЕЛИРОВАНИЕ КАКМЕТОД ПОЗНАНИЯМОДЕЛИРОВАНИЕ ИФОРМАЛИЗАЦИЯ2. Ключевые слова • модель • моделирование • цель моделирования • натурная (материальная) модель • информационная модель • формализация • классификация информационныхмоделей3. Модели и моделирование Модель - это новый объект, который отражает Одним из методов познания объектов окружающего мирасущественные с точки зрения цели моделирования признакиявляется моделирование, состоящее в создании иизучаемого предмета, процесса или явления.исследовании упрощённых заменителей реальных объектов. Моделирование - метод познания, заключающийся вОбъект-заменитель принято называть моделью, а исходныйсоздании и исследовании моделей.объект - прототипом или оригиналом. К созданию моделейприбегают, когда исследуемый объект слишком велик процесс протекает очень быстро процесс протекает очень медленно исследование опасно объектамал создание реального для окружающих дорого Модель Модель Натурная Натурная Информационная Информационная Муляж Муляж Словесное описание Словесное описание Макет Макет формула, чертеж, схема формула, чертеж, схема Информационная модель - описание объекта- оригинала на одном из языков кодирования информации. Ядерный взрыв Двигатель внутреннего сгорания Геологический процесс4. Этапы построения информационной модели Реальный объект Реальный объект Анализ условия Анализ условия задачи задачи Объект и цель моделирования Объект и цель моделирования Существенные Существенные Связь между свойствами Связь между свойствами признаки объекта признаки объекта и основными частями объекта. и основными частями объекта. Словесное описание, таблица, Словесное описание, таблица, Формализация Формализация рисунок, схема, чертёж, формула, рисунок, схема, чертёж, формула, алгоритм, программа. алгоритм, программа. Информационная Информационная модель модель5. Пример построения информационной модели Иван к уроку литературы должен выучить наизусть трипервые строфы первой главы романа А. С. Пушкина «ЕвгенийОнегин». Это 42 строки. Сколько потребуется времени навыполнение этого задания, если первую строку Иван можетзапомнить за 5 секунд, а на запоминание каждой следующейстроки ему требуется времени на 5 секунд больше, чем назапоминание предыдущей строки? Объект моделирования Объект моделирования 

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

type
  tField=(char,integer);

function GetNewField(oldfld:tField;x,y:integer;var newfld:tField):boolean;
begin
  Result:=true;
  var xo:=oldfld[0];
  case xo.ToLower of
  'a':
    case x of
    -2,-1:Result:=false;
    1:newfld:=(Succ(xo),0);
    2:newfld:=(Succ(Succ(xo)),0)
    end;
  'b':
    case x of
    -2:Result:=false;
    -1:newfld:=(Pred(xo),0);
    1:newfld:=(Succ(xo),0);
    2:newfld:=(Succ(Succ(xo)),0)
    end;
  'g':
    case x of
    -2:newfld:=(Pred(Pred(xo)),0);
    -1:newfld:=(Pred(xo),0);
    1:newfld:=(Succ(xo),0);
    2:Result:=false
    end;
  'h':
    case x of
    -2:newfld:=(Pred(Pred(xo)),0);
    -1:newfld:=(Pred(xo),0);
    1,2:Result:=false
    end;
  else
    case x of
    -2:newfld:=(Pred(Pred(xo)),0);
    -1:newfld:=(Pred(xo),0);
    1:newfld:=(Succ(xo),0);
    2:newfld:=(Succ(Succ(xo)),0)
    end
  end;
  if Result=true then begin
    var yo:=oldfld[1];
    case yo of
    1:
      case y of
      -2,-1:Result:=false;
      else newfld:=(newfld[0],yo+y);
      end;
    2:
      case y of
      -2:Result:=false;
      else newfld:=(newfld[0],yo+y);
      end;
    7:
      case y of
      -2,-1,1:newfld:=(newfld[0],yo+y);
      2:Result:=false
      end;
    8:
      case y of
      -2,-1:newfld:=(newfld[0],yo+y);
      1,2:Result:=false
      end
    else
      newfld:=(newfld[0],yo+y);
    end
  end
end;

begin
  var ax:=Arr(-2,-1,1,2);
  var ay:=ax;
  var s:=ReadlnString('Укажите клетку, на которой стоит конь');
  var f1,f2:tField;
  f1:=(s[1],s[2].ToDigit);
  foreach var x in ax do
    foreach var y in ay do
      if abs(x)+abs(y)=3 then
        if GetNewField(f1,x,y,f2) then Print(f2[0]+f2[1]);
  Writeln
end.

Примеры
Укажите клетку, на которой стоит конь b1
a3 c3 d2

Укажите клетку, на которой стоит конь C5
A4 A6 B3 B7 D3 D7 E4 E6