02.12 Алгоритмическая конструкция Ветвление

Пример 12.1

uses Robot; begin Task('if1'); right; if FreeFromUp then begin up; right; down; end else begin down; right; up; end; paint; end.