0. Начало 1. Ввод - Гвозди, картина молоток, стена 2. Операция - Прибить гвоздь к стене при молотка 3. Условие - Гвоздь прибит к стене? Нет->Повторить пункт 2; Да->Переходим к пункту 4 4. Повесить картину на гвоздь 5. Конец
Ну это если не заморачиваться с условиями. К примеру можно после 4 пункта поставить условие на проверку положения картины, т.е Картина висит прямо? ->Нет то Действие выровнять положение картины; Да->Конец
UPD: Ещё можно создать условие на состояние гвоздя - погнутый или целый, вытаскивание погнутого гвоздя и т.д.
Var a, b, c, rez: real; begin write('Введите число А: '); readln(a); write('Введите число B: '); readln(b); write('Введите число C: '); readln(c); if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c; if (a >= 0) and (b >= 0) then rez := a + b; if (a >= 0) and (c >= 0) then rez := a + c; if (b >= 0) and (c >= 0) then rez := b + c; if (a <= 0) and (b <= 0) then rez := c; if (b <= 0) and (c <= 0) then rez := a; if (a <= 0) and (c <= 0) then rez := b; if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0; writeln(rez); end.
Объяснение:
пиксельная информация