Viết chương trình tìm min của 3 số thực a,b,c đc nhập từ bàn phím Các bạn giúp mik vs khó quá mik k lm đc :((

1 câu trả lời

program  min ;

uses crt  ;

var  a,b,c,min : integer ;

begin

clrscr ;

writeln('nhap 3 so a,b,c=');readln(a,b,c);

min:=a ;

if a>b then b:=min ;

if b>c then c:=min ;

writeln ('gia tri nho nhat la ',min);

readln

end.