<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
// А,a
begin
ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;
end.
// А,б
begin
var x:=ReadInteger('x=');
var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;
end.
// B,a
begin
var (x,n):=ReadInteger2('x,n=');
var a:=ArrGen(n,i->x-(n-1-i)); a.Println;
end.
// B,б
begin
ArrGen(ReadInteger('n='),i->2**(i+1)).Println;
end.
</span>
Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.
Перед тем как попасть в D:\ пользователь был в SCHOOL. Так как SCHOOL не может быть уровнем выше чем D, он на уровень ниже. Других выходов в один из этих каталогов до того не было, значит, началом является либо сам каталог D:\SCHOOL, либо один из расположенных в нем(D:\SCHOOL\*). Из представленных вариантов ответа подходит только 2. Отсутствие противоречий легко проверить.
На языке pascal ABC .NET:
var k:integer;
Begin
k:=1;
for var i:=1 to 9 do
if (i mod 2)=0 then else k:=k*i;
write(k);
end.