Срочно!срочнооо !!!срочно ребят

var b,s:real;

i:integer;

begin

Writeln('Привет,я-alconafft');

writeln('ввеидте число b');

readln(b);

for i:=1 to 5 do

begin

s:=(i+(b*b))/(sqr(sin(i)));

end;

writeln(s);

end.