Algoritmo 1
Program algoritmo;
Var v1,v2par: integer;
begin
read(v1,v2);
if(v1,v2);write(v1);
else
if(v2>v1)then;
write(v2);
if(1mod 2=0)then;
write("0valor 1épar");
else
write(impar);
end.