Algoritimo

program algorítmo;
var V1,V2 par:integer;
Begin
read(v1,v2);
if(v1,v2);then;
write (v1);
Else
if(v2>v1)then;
write (v2)
if(v1mod 2=0)then;
write("0 valor 1 e par")
else;
write ("impar")
end.