Дано целое число. Найти наименьшее четное из набора. То есть ...

Vasy

var min,num:int64;begin  writeln('Vvedite chislo');  readln(num);  min:=num mod 10;  while(num>0) do begin    if(min>(num mod 10)) then min:=num mod 10;    num:=num div 10;  end;  writeln(min);  readln;  end.