Viết chương trình nhập 4 số thực a,b,c,d. In ra màn hình số bé nhất
1 câu trả lời
Program BTH;
uses crt;
var a,b,c,d,max:real;
begin
clrscr;
write('Nhap so 1: '); readln(a);
write('Nhap so 2: '); readln(b);
write('Nhap so 3: '); readln(c);
write('Nhap so 4: '); readln(d);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
begin
writeln('Max: ',max:4:2);
end;
readln;
end.