Даны 3 числа a,b,c. Определить минимальное из них. Если минимальное число окажется отрицательным , то определить количество отрицательных  чисел , а иначе все положительные числа заменить на отрицательные . 
Написать программу и блок схему

program project1;usescrt,math;var  s:real;  i,j,f:real;  a:integer;begin writeln('vvedite 1 chislo ');readln(i);  writeln('vvedite 2 chislo ');readln(j);  writeln('vvedite 3 chislo ');readln(f);  s:=i;  if j<s then s:=j;  if f<s then s:=f;  if s<0 then  begin    if i<0 then inc(a);    if j<0 then inc(a);    if f<0 then inc(a);    writeln('kolichestvo otricatelnix ',a:2);  end  else  begin    if i>0 then i:=i*-1;  if j>0 then j:=i*-1;  if f>0 then f:=i*-1;  end;  writeln('min chislo ',s:2:0);  readln;end.