Дана последовательность ненулевых вещественных чисел х, за которой следует 0 (0 – признак конца найти минимум из чисел sin(х).

Var a,m:real;
begin
read(a);
m:=sin(a);
while a<>0 do begin if sin(a)<m then m:=sin(a); read(a) end;
write(m);
end.