PROGRAM VAR READLN IF THEN : REALA, B, C, D () ; :=:= BIT3 ; A, B, C ; END. ( A>=B ) and ( A>=C ) D BEGIN D : = A начало да нет A B и A С конец ввод a, b, c алг БИТ3 если A B и A С ввод A, B, C нач вещ A, B, C, D кон вывод D то D := A Задача: определить большее из трех чисел WRITELN()D D : = B да нет B A и B С D : = C да нет C A и C B вывод D A IF THEN :=:= ( B>=A ) and ( B>=C ) DB IF THEN :=:= ( C>=A ) and ( C>=B ) DC ; ; ; если B A и B С то D := B если C A и C B то D := C Условия ветвлений представляют собой сложные логические выражения, включающие логическую операцию and (И). Отношения, связываемые логическими операциями, заключаются в скобки.