Задачка на Pascal

[Real7]

Составить программу, в соответствии с которой с клавиатуры вводится последовательность положительных чисел, признак окончания ввода - число, являющееся степенью 3. Требуется найти максимальное из введенных чисел и определить номер его первого вхождения.

[Fantazerishka]

не совсем понял признак окончания, третей степенью какого числа?

[Анатоль]

Напишу код разбирайся сам.
var
max,a,cout,maxind : longint;
function prov(a:longint):boolean;{проверяет является ли число степенью3}
var
x : longint;
begin
x := 1;
if a = x then
begin
prov := true;
exit;
end;
while a <= x do
begin
x := x*3;
if a = x then
begin
prov := true;
exit;
end;
end;
prov := false;
end;
BEGIN{главный код}
max := -1;
maxind := 0;
cout := 1;
while true do
begin
read(a);
if prov(a) then
break;
if a > max then
begin
max := a;
maxind := cout;
end;
inc(cout);
end;
write(max,' ',maxind);
END.
Я сделал чтобы как только мы находили степень тройки мы сразу выходили з цикла, если это число нужно обрабатывать, как одно из максимальных, то исправь немного мою программу.

[Real7]

Всмысле число которое было получено тройкой в какой то степени например тройка в 3 степени 27, тройка в 4 степени 81 и т.д