Как решить ети задачи на Pascal

[Maxtrelle]

Как решить ети задачи на Pascal.

[RealSHELS]

program _2;
const n=3;
m=6;
var
a:array[1..m,1..n] of integer;
i,k,j:integer;
begin
  for i:=1 to m do
    for j:=1 to n  do
    readln(a[i,j]);
  k:=0;
  for i:=1 to m do
    for j:=1 to n do
     if a[i,j]=0 then inc(k);
  writeln(k);
  readln;
end.

[RealSHELS]

program _3;
const a=0.46;
x=0.63;
y=1.0;
z=0.87;
var
f:real;
function p(k:real):real;
begin
  p:=(sin(a*k)/cos(a*k)+1)/(sin(k)/cos(k)+a);
end;
begin
  f:=sqrt(p(x)+p(y))/(1+y)-ln(p(z));
  writeln(f);
  readln;
end.