Оформить задачи с подпрограммами в виде отдельных модулей

Program z_20;
uses crt;
var a,b,z: real;
function f(u,t: real):real;
begin
if u>0 then f:=u+sin(t);
if u<=0 then f:=u+t;
end;
begin
clrscr;
a:= -Pi/14;
b:= -0.2;
z:=f(sin(a),b)+f(cos(a),b)+f(sqr(sin(a)) ,b-1)+f(sin(a)-cos(a),sqr(b)-1)+f(sqr(sin(a))-1,cos(b)+b);
write('Z=', z:0:2);
end.




Program z_21;
uses crt;
var m:byte;
k,l,s,d:real;
procedure Mas(a:byte;var min,max,mina,maxa:real);
var r:array[1..10] of real;
i:byte;
begin
min:=11;
max:=-1;
mina:=101;
maxa:=-1;
for i:=1 to a do
begin
r[i]:=random*20-10;
if r[i]<min then min:=r[i];
if r[i]>max then max:=r[i];
r[i]:=sqr(r[i]);
if r[i]<mina then mina:=r[i];
if r[i]>maxa then maxa:=r[i];
end;
end;
begin
clrscr;
m:=7;
Mas(m,k,l,s,d);
writeln('Минимальный элемент: ',k:2:2,',максимальный: ',l:2:2);
writeln('В квадрате: минимальный элемент: ',s:2:2,',максимальный: ',d:2:2);
writeln();
m:=10;
Mas(m,k,l,s,d);
writeln('Минимальный элемент: ',k:2:2,',максимальный: ',l:2:2);
writeln('В квадрате: минимальный элемент: ',s:2:2,',максимальный: ',d:2:2);
end.

0