program pistepari(input,output); var joukko: array [1..100] of integer; a,b,i,j,k,min,ero,x:integer; begin k:=0; while not eof do begin k:=k+1; read(x); joukko[k]:=x end; a:=joukko[1]; b:=joukko[2]; if a