Даны три числа. найти среди них минимальное положительное число.

Var
 a:array[1..10]of longint;
 n,m,k,i,l:longint;
begin
 k:=maxlongint;
 for i:=1 to 3 do read(a[i]);
 for i:=1 to 3 do if (a[i]>0) and (a[i]<k) then k:=a[i];
writeln(k);
readln;
end.