Задача: найти наибольшее значение среди трех величин: A, B, C алг БИТ2 если A > B ввод A, B, C нач вещ A, B, C, D кон вывод D иначе если B > C то D := B иначе D := C кв кв то если A > C то D := A иначе D := C кв IF PROGRAM VAR READLN WRITELN IF THEN ELSE : REAL a, b, c, d () ; BIT2 ; a, b, c ; END. a > b () BEGIN :=:= da ;:=:= d b d IF a > c b > c THEN ELSE :=:= dc :=:= d c начало да нет A > B ввод A, B, C конец вывод D D : = A да нет A > C D : = CD : = B да нет B > C D : = C