Б не подходит из-за отсутствия расширения.
В содержит \ в названии, что недопустимо в Windows.
Ответ: А.
(А1:А3) это сумма с 1 по 3,т.е.
6+8+10=24
Ответ:24
Var a:integer;
begin
readln(a);
if ((a mod 3 <>0) and (a mod 10 = 0) and (a div 10>0)) or (a=0) then
writeln ('true')
else writeln ('false');
<span>end.</span>