Помогите!!!Нужно написать программки на Pascal + блок-схемы. С клавиатуры поочередно

Можно без блок-схемы?

да

Const
   n = 13;
Var
   a,i,C,k:integer;
   M:array[1..N] of integer;
Begin
k:=0;
Write('a = ');
ReadLn(a);
WriteLn('Введите целые числа');
For i:= 1 to n do
    Read(M[i]);
For i:= 2 to n do
    if M[i]-a = M[1] then k:=k+1;
WriteLn('1: k = ',k);
k:=0;
For i:= 2 to n-1 do
    if (M[i-1]lt;M[i])and(M[i]gt;M[i+1]) then k:=k+1;
WriteLn('2: k = ',k);
Write('3: ');
For i:= 1 to n do
    if (M[i] mod 3 = 0)and(M[i] mod 5 lt;gt; 0) then Write(M[i],' ')
End.