Заранее за Даны три натуральных числа a, b и c. Вычислить расстояние между a и с, а также между b и c. На экране напечатать наименьшее из них. Если расстояния равны, напечатать любое.

2) Составить алгоритм, печатающий по номеру месяца его название.

​

2. var

r: integer;

result: string;

begin

write('вводите число от 1 до 12: ');

readln(r);

case r of

1: Result := 'январь';

2: Result := 'февраль';

3: Result := 'март';

4: Result := 'апрель';

5: Result := 'май';

6: Result := 'июнь';

7: Result := 'июль';

8: Result := 'август';

9: Result := 'сентябрь';

10: Result := 'октябрь';

11: Result := 'ноябрь ';

12: Result := 'декабрь';

end;

writeln(' месяц : ',result);

end.

Объяснение:

я написал ответ только к 2 задаче

постарайся сам сделать 1 ую задачку.