Question

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

Answer 1

program project1;
uses
crt,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.     

Answer 2

Uses crt; Var a,b,c, и т.д? я просто совсем не понимаю, а еще что такое ":integer" и почему числа именно i,j,f ? почему не a,b,c?

Answer 3

ijf это просто переменные можете вместо их написать любые, uses crt,math это библиотеки они не обязательны можете их не вставлять в программу.