На рисунке — схема дорог, связывающих города а, б, в, г, д, е, ж и к. по каждой дороге можно двигаться только в одном направлении, указанном стрелкой. сколько существует различных путей? на фото все указано

Задача 1. 
var
  a,b,c,x: integer;
begin
  readln(x);
  a:= x mod 10;
  x:= x div 10;
  b:= x mod 10;
  x:= x div 10;
  c:= x;
  if (a=b) or (a=c) or (b=c) then writeln('Есть') else writeln('Нет');
end.

Задача 2.
var 
  a,b: integer;
begin 
  readln(a,b); 
  If ((a>0) and (b>0)) or ((a<=0) and (b<=0)) then writeln('да') else writeln('нет');
end.

Задача 3.
var
  x: real;
begin
  readln(x);
  if (x=<5) and (x>=1) then writeln('да') else writeln('нет');
end.

Задача 4. 
Справка:
Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних.
var 
  x: integer;
begin
  readln(x); 
  for i:=1 to 3 do begin   
    d:= x mod 10;   
    x:= x div 10;   
    s1:= s1+d 
  end; 
  for i:=1 to 3 do begin   
    d:= x mod 10;   
    x:= x div 10;   
    s2:= s2+d 
  end; 
  if s1=s2 then writeln('да') else writeln('нет')
end.

Задача 5.
Справка:
год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. 
var 
  x: integer;
begin 
  readln(x); 
  If ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then
  writeln('да') else writeln('нет')
end.

Ре­ше­ние.

Ско­пи­ру­ем число из ячей­ки A1 в ячей­ку P1. По­сколь­ку ладья может хо­дить через не­огра­ни­чен­ное ко­ли­че­ство ячеек вниз и впра­во, не­об­хо­ди­мо для каж­дой ячей­ки вы­би­рать, из ка­ко­го числа в стро­ке до этой ячей­ки, и из ка­ко­го числа в столб­це выше этой ячей­ки долж­на схо­дить ладья, чтобы сумма ячеек при этом была мак­си­маль­ной. Для этого в ячей­ке Q1 за­пи­шем фор­му­лу =МАКС($P$1:P1)+B1 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на R1:AD1. В ячей­ке P2 за­пи­шем фор­му­лу =МАКС($P$1:P1)+A2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на P3:P15. В ячей­ке Q2 за­пи­шем фор­му­лу =МАКС(МАКС($P2:P2);МАКС(Q$1:Q1))+B2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на Q2:AD15. По­лу­чим ответ — 323.

 

ответ: 323.