Поиск числа

[Svyatoslav472]

program z1;
uses crt;
var
w,x,a:real;
N,c,v,b:integer;
begin
writeln('Menu programu');
writeln('1 - 1 zada4a');
writeln('2 - 2 zada4a');
writeln('Vvedite vash nomer zada4i');
readln(N);
case N of
 1:begin
         writeln('Vvedite x,a');
         readln(x,a);
         if x>a then w:=x*x*x*sqrt(x-a);
         if x=a then w:=x*sin(a*x);
         if x<a then w:=exp(-a*x)*cos(a*x);
         writeln('Rezyltat=',w);
         readln;
         end;
 2:begin
         writeln('Vvedite bydb yaki 3 4ucla');
         readln(c,v,b);

вот код програми после 2:

begin
         writeln('Vvedite bydb yaki 3 4ucla');
         readln(c,v,b);

нужно найти найменшое число ето может бить c,v или b и нужно вивести . Также нужно подсчитать сколько здесь чисел <0
помогите очень срочно нужно

[gaw4]

program z1;
 uses crt;
 var
 w,x,a,min:real;
 N,c,v,b,k:integer;
 begin
 writeln('Menu programu');
 writeln('1 - 1 zada4a');
 writeln('2 - 2 zada4a');
 writeln('Vvedite vash nomer zada4i');
 readln(N);
 case N of
 1:begin
 writeln('Vvedite x,a');
 readln(x,a);
 if x>a then w:=x*x*x*sqrt(x-a);
 if x=a then w:=x*sin(a*x);
 if x<a then w:=exp(-a*x)*cos(a*x);
 writeln('Rezyltat=',w);
 end;
 2:begin
 writeln('Vvedite bydb yaki 3 4ucla');
 readln(c,v,b);
 min:=c;
 if min>v then min:=v;
 if min>b then min:=b;
  k:=0;
  if c<0 then inc(k);
   if v<0 then inc(k);
    if b<0 then inc(k);
 writeln('min=',min);
  writeln('k(<0)=',k);
 end;
 end;
 end.

[Stilet]

readln(c,v,b);
if (c<b) and (c<v) then write(c) else
if (b<c) and (b<v) then write(b) else
write(v);

[Svyatoslav472]

Сообщение от gaw4

program z1;
 uses crt;
 var
 w,x,a,min:real;
 N,c,v,b,k:integer;
 begin
 writeln('Menu programu');
 writeln('1 - 1 zada4a');
 writeln('2 - 2 zada4a');
 writeln('Vvedite vash nomer zada4i');
 readln(N);
 case N of
 1:begin
 writeln('Vvedite x,a');
 readln(x,a);
 if x>a then w:=x*x*x*sqrt(x-a);
 if x=a then w:=x*sin(a*x);
 if x<a then w:=exp(-a*x)*cos(a*x);
 writeln('Rezyltat=',w);
 end;
 2:begin
 writeln('Vvedite bydb yaki 3 4ucla');
 readln(c,v,b);
 min:=c;
 if min>v then min:=v;
 if min>b then min:=b;
  k:=0;
  if c<0 then inc(k);
   if v<0 then inc(k);
    if b<0 then inc(k);
 writeln('min=',min);
  writeln('k(<0)=',k);
 end;
 end;
 end.

очень благодарен за скорую помощь)

[Svyatoslav472]

Сообщение от Stilet

readln(c,v,b);
if (c<b) and (c<v) then write(c) else
if (b<c) and (b<v) then write(b) else
write(v);

спасибо )