Запишите развернутую запись чисел:
123 (10)
452,12 (10)

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

Var M, Day : integer; Sm, S : real;
begin
writeln('Вычисление стоимости телефонного разговора');
writeln('Введите исходные данные');
write('Стоимость минуты разговора, руб. ');
readln(Sm);
write('Длительность разговора (целое количество минут) ');
readln(M);
write('День недели (1-понедельник, ... 7-воскресенье) ');
readln(Day);
S:=Sm*M;
if (Day=6)or(Day=7)
 then writeln('Стоимость разговора с учетом скидки = ',S*0.8)
 else writeln('Стоимость разговора = ',S);
end.

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