Prigram t1;
Var a,b,s,i:integer;
Begin
S:=0;
Read (a,b);
For i:=a to b do
S:=s+1;
Write (s);
End.
<span>0.125
влывлыаываыварпарпапрапр</span>
#1
алг
нач
нц пока не слева свободно
закрасить
вниз
кц
вверх
нц пока справа свободно
вправо
закрасить
кц
нц пока не справа свободно
закрасить
вверх
кц
вниз
кон