Паша написал программу для вычисления чисел геометрической прогрессии со знаменателем прогрессии 3. Определи, какое последнее число выведет на экран программа. program p1;
var n,res: integer
begin
n:=1
repeat
res:=n*3
n:=res
writeln ('res=', res);
until res > 222;
end.