1. указаны пути от корневого каталога к некоторым файлам, хранящимся на магнитном диске. заглавными буквами обозначены имена каталогов, строчными – имена файлов: \arsenal\run.exe; \arsenal\readme.doc; \games\war3\ratings\03100.rtc; \games\war3\ratings\018001.rtc; \games\war3\ratings\022000.rtc; \pascal\bp\bin\bp.exe; \pascal\rtl\units\windos.txt а) отобразить файловую структуру в виде дерева. б) составьте спецификацию файла с именем windos.txt при условии, что каталог \pascal\bp\bin активный. 2. запишите шаблон имени файла, имеющего любое расширение, первая буква в имени – y ., всего символов в имени – 4 (без расширения)?

1 б составте спецификацию

Program figna ; {это название}
var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые}
begin {начало}
 writeln('введите три числа'); {запрос чисел}
readln(a,b,c); {ввод чисел}
d:=a*b*c; {умножаем числа и присваиваем d их значение} 
if (d<50) then {если произведение чисел меньше 50 то}
 a:=a*10; {первое число умножаем на десять}
 b:=b*10; {второе число умножаем на десять}
 c:=c*10; {третье число умножаем на десять}
writeln(a); {выводим первое}
writeln(b); {выводим второе}
writeln(c); {выводим третье}
else {иначе}
writeln(d); {выводим произведение}
end. {конец}
P.S. этот символ { } паскаль не читает и означает он коментарий 

Var a,b,c,i,sum,cp:integer;
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.