Вроде так. дальше протяжку сделайте и все
В Windows достаточно последовательно реализована концепция свойств объектов, которые можно просматривать, а некоторые из них – и изменять. Каждый объект в среде Windows, в том числе каждая папка и каждый файл, обладают набором характеристик, называемых свойствами.
Вот решения на с++.
Оба делал через операторы if.
var
a: real;
begin
read(a);
writeln((2*a*sin(3*a))/3.5);
end.