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.