Программирование ветвлений на паскале

if <логическое выражение>
then <оператор 1>
else <оператор 2>

if – если
then – то
else

if <логическое выражение>
then <оператор 1>

if – если
then – то

if c>0
then D:=C

if <логическое выражение>
then
begin
<оператор ы>
end;

if X>Y
then
begin
C:=X;
X:=Y;
Y:=C
end;

Program vetvl;
var A,B,C,D:real;
begin
readln(A,B,C);
if A>B
then if A>C then D:=A else D:=B
else if

Определение наибольшего из трех чисел.

PROGRAM THREE;
VAR A,B,C,D:REAL;
IF (A>B) AND (A>=C) THEN

Отношения, связываемые логическими операциями, заключаются в скобки.
Определить, есть ли среди трех