Переведите выражения из обычного математического языка на язык бейсик ​

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

0

+1=1

+1=2

*2=4

+1=5

+1=6

*2=12

*2=24

+1=25

*2=50