Вычислить 10 элементов которые получены в результате вычисления арифметического выражения y=sin(a)/b где b=0.6 принадлежит [-1.57; 3] с шагом 0.25 найти сумму положительных и количество отрицательных значений элементов. !

Var a,b,y,s:real;
        k:integer;
begin
s:=0;k:=0;
b:=0.6;
a:=-1.57;
while a<=3 do begin
y:=sin(a)/b;
writeln('y=',y);
if y>0 then s:=s+y;
if y<0 then k:=k+1;
a:=a+0.25;
end;
writeln(s);
writeln (k);
end.

Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления.
Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉
Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу.
Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80

Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления.Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу.Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80