Задание на фотографии

1) Давай с тобой определим, что такое граф, или семантическая сеть. Граф - это когда некоторое количество точек соединено линиями, и линии не всегда есть между каждой парой точек. Графы применяются для изучения какого-либо события, для анализа данных. К примеру, есть станции А, Б, В и Г. Тебе надо с А попасть на станцию Г кратчайшим путём. Чтобы узнать этот самый путь, нужна карта. А схематичная карта такого пути - это и есть граф! (Кстати, карту метро тоже можно назвать очень большим графом).
2) Наметим пункты нашего графа. Какие мы знаем? Например, Облака, Дождь, Снег, Поверхность Земли, Земля, Животные, Растения, Пар.
3) Располагаем их и соединяем стрелочками (движение возможно только в одну сторону) или просто линиями.

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Вычисление стоимости телефонного разговора');
  Writeln('Введите исходные данные');
  var Sm:=ReadReal('Стоимость минуты разговора, руб.');
  var M:=ReadInteger('Длительность разговора (целое количество минут)');
  var Day:=ReadInteger('День недели (1-понедельник, ... 7-воскресенье)');
  var S:=Sm*M*(Day in [1..5]?1.0:0.8);
  Writeln('Стоимость разговора, руб ',s:0:2)
end.

Пример
Вычисление стоимости телефонного разговора
Введите исходные данные
Стоимость минуты разговора, руб. 1
Длительность разговора (целое количество минут) 6
День недели (1-понедельник, ... 7-воскресенье) 7
Стоимость разговора, руб 4.80