Подскажите пожалуйста с программой:
Найти первую степень числа 3, превышающую данное целое число a. Язык Pascal.
program stepen;
var a:LongInt;y:real;
FUNCTION x2np(x:extended;n:integer)extended;
begin
writeln('vvedite 4islo a');
readln (a);
y:=x2np(3,n);
if y>a then
writeln ('n=',n);
readln (n);
end.
Проверьте пожалуйста и укажите на ошибки