// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var d:=ReadReal('D=');
if d<=-30 then Writeln(d/10)
else
if d>=20 then Writeln(sqr(d-1))
else Writeln(1-2*d)
end.
? обозначает одну любую букву...... * обозначает любое количество букв или их отсутствие.............. Итак между буквами v и d должна быть только одна буква, а после d все что угодно. => ответ (а) vedomosti.doc