Программа на языке Pascal:

program NestedDolls;
var
N: Integer;
smallestSize, currentSize: Real;
i: Integer;
begin
writeln('Введите количество матрешек:');
readln(N);
currentSize := 80.0; // размер самой большой матрешки
for i := 1 to N do
begin
smallestSize := currentSize / 1.3; // вычисляем размер самой маленькой матрешки
writeln('Матрешка ', i, ': ', smallestSize:0:2, ' см');
currentSize := smallestSize; // обновляем текущий размер для следующей матрешки
end;
end.

Эта программа запрашивает количество матрёшек у пользователя, затем вычисляет размер каждой матрёшки по заданным условиям (каждая матрешка меньше предыдущей на 30%) и выводит результат на экран.