Программу с ветвлением на языке паскаль составьте несколько

Program BIT3;
var А,В,С,D: real; 
begin readln(А,В,С);
     if (A>=B) and (A>=C) then D:=A;
     if (B>=A) and (B>=C) then D:=B;
     if (C>=A) and (C>=B) then D:=C;
     writeln(D)
end.


Program BIT2; 
var А, В, С, D: real; 
begin readln(А, В, С); 
     if A>B
          then if A>C then D:=A else D:=B 
          else if B>C then D:=B else D:=C;
     writeln(D)
end.