функции и процедуры на паскале

[Джуля]

никак не могу понять как написать программы.прошу помочь
1.используя нестандартные функции,составить программы для расчета величин
y1=x1*tg f(x1)
y2=sin f(x2)*f(x3)
где f(x)=ln|x-4x|

2.написать программу,содержащую подпрограмму для вычисления квадрата суммы тех элементов массива B(100),значения которых меньше 10

[Ybn2]

А что подразумевается не стандартные функции?

[Stilet]

2.написать программу,содержащую подпрограмму для вычисления квадрата суммы тех элементов массива B(100),значения которых меньше 10

С антресолей:

var s:integer;b:array[1..100]of integer;i:integer;
procedure sqrr(x:integer);begin if x<10 then s:=s=x;end;
begin
 for i:=1 to 100 do begin read(b[i]);sqrr(b[i]);end;
 write(sqr(s));readln;
end.

[Джуля]

Сообщение от Ybn2

А что подразумевается не стандартные функции?

я сама не знаю...может в задании опечатка

Сообщение от Stilet

С антресолей:

var s:integer;b:array[1..100]of integer;i:integer;
procedure sqrr(x:integer);begin if x<10 then s:=s=x;end;
begin
 for i:=1 to 100 do begin read(b[i]);sqrr(b[i]);end;
 write(sqr(s));readln;
end.

спасибо Вам за помощь. оч. благодарна