Вот пример кода на Delphi для программы, которая вычисляет выражение Y = N, где N — значение, которое вводит пользователь: program CalculateY; uses SysUtils; var N, Y: Integer; begin Write('Введите значение N: '); ReadLn(N); Y := N; // Присваиваем значение N переменной Y WriteLn('Значение Y: ', Y); end. Описание программы: 1. Пользователь вводит значение N. 2. Программа присваивает это значение переменной Y. 3. Выводится результат Y, который равен N.