Изобразить схематически файловую структуру диска н: \, которая включает 3 каталога 1 уровня, 2 каталога 2 уровня, 4 каталога 3 уровня. названия каталогам дать самостоятельно. !

Диск h/                                                                                                                                       --мультики                                                                                           --документы                                                                     l--важное                                                                     l-не трогать                                                                                                                                                                                                                                                                                                                                                 катало 1го уровня - это папка каталого 2го уровня это папка в папке каталог 3го уровня это папка в папке в сверху вниз расположены каталоги с 1го по 3ий уровень

Pascal:

program p1;

var k, a, b, c: integer;

begin

k:=0;

writeln ('Введите числа');

readln(a);

if a div 10 > 0 then k:=k+1;

readln(b);

if b div 10 > 0 then k:=k+1;

readln(c);

if c div 10 > 0 then k:=k+1;

writeln ('Количество двузначных чисел: ', k);

readln;

end.