program while4;
uses crt;
var
n,k:integer;
begin
clrscr;
repeat
write('Введите число ');
readln(n);
until n>0;
k:=1;
while k < n do
k:=k*3;
write(k=n);
readln
end.
program while4;
uses crt;
var
n,k:integer;
begin
clrscr;
repeat
write('Введите число ');
readln(n);
until n>0;
k:=1;
while k < n do
k:=k*3;
write(k=n);
readln
end.