Algorítmo =D

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 é par")
else
write ("impar")
end.