Var a,b:integer;
begin;
readln(a);
readln(b);
if a>b then write('Первое');
if a<b then write('Второе');
if a=b then write('=');
<span>end.</span>
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Файл с исходным кодом прикреплен в описании (нужно переименовать с 'Program.cs.txt', на просто 'Program.cs'), код продублирован в коментариях к ответу. Если есть вопросы - пиши в коменты.
Код полностью прокоментирован, надеюсь будет понятно.
маршрутов (1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3)