Exercício 1

Program algoritmo;
var v1,v2 par:integer;
begin
read(v1,v2);
if(v1,v2);write(v1);
elseif(v2>v1)then;
write(v2);
if(v1 mod 2=0)then;
write("0 valor1é par");
else
write(impar);
end.