Лабораторные / Лаб_1 / Вар_12 / test1b

program test1b;
var
x,i,j:integer;
a,b:boolean;
begin
readln(i,j);
if (i=0) then a:=false;
if (j>0) and (j<=9) then a:=true;
if a then b:=true else b:=false;
if a or b then x:=0;
if not b then
if j mod 2=0 then x:=j div 2
else x:=j;
if i>1 then
begin
i:=i-1; x:=i;
end
else x:=j;
writeln(x);
end.