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

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.