Написать программу в паскале: 1.дано целое число. вычислить, если возможно, натуральный логарифм этого числа и вывести его на экран. в противном случае вывести сообщение об ошибке.

Логарифм существует только для положительных чисел.
Поэтому напишем такую программу:

var  x:integer;
BEGIN
writeln('Введите число');
readln(x);
if  x<=0 then 
     writeln('Логарифм этого числа не существует')
     else write('ln=',ln(x))
END.