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

спасибо

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.