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

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.