viết CT nhập vào cân nặng của 4 bạn, sau đó in ra màn hình tên và cân nặng của bạn nặng nhất và bạn nhẹ nhất

program oken;
uses crt;
var c1,c2,c3,c4,max,min: real;
    s1,s2,s3,s4,ten1,ten2: string;
begin
    clrscr;
    write(‘Nhap ten ban thu 1: ‘); readln(s1);
    write(‘Nhap chieu cao: ‘); readln(c1);
    write(‘Nhap ten ban thu 2: ‘); readln(s2);
    write(‘Nhap chieu cao: ‘); readln(c2);
    write(‘Nhap ten ban thu 3: ‘); readln(s3);
    write(‘Nhap chieu cao: ‘); readln(c3);
    write(‘Nhap ten ban thu 4: ‘); readln(s4);
    write(‘Nhap chieu cao: ‘); readln(c4);
    if (c1>c2) and (c1>c3) and (c1>c4) then
        begin
            max:=c1;
            ten1:=s1;
        end
    else if (c2>c1) and (c2>c3) and (c3>c4) then
        begin
            max:=c2;
            ten1:=s2;
        end
    else if (c3>c1) and (c3>c2) and (c3>c4) then
        begin
            max:=c3;
            ten1:=s3;
        end
    else
        begin
            max:=c4;
            ten1:=s4;
        end;
        
    if (c1<c2) and (c1<c3) and (c1<c4) then
        begin
            min:=c1;
            ten2:=s1;
        end
    else if (c2<c1) and (c2<c3) and (c3<c4) then
        begin
            min:=c2;
            ten2:=s2;
        end
    else if (c3<c1) and (c3<c2) and (c3<c4) then
        begin
            min:=c3;
            ten2:=s3;
        end
    else
        begin
            min:=c4;
            ten2:=s4;
        end;
    writeln(‘Ten ban cao nhat: ‘,ten1,'(‘,max:0:2,’ m)’);
    writeln(‘Ten ban thap nhat: ‘,ten2,'(‘,min:0:2,’ m)’);
    readln;
end.