Написать программу на языке pascal, которая находит натуральный логарифм максимального из 3 заданных чисел.

Var
  a,b,c,max:real;
begin
  Write('Задайте три числа: ');
  Readln(a,b,c);
  if a>b then max:=a else max:=b;
  if c>max then max:=c;
  Writeln(ln(c))
end.