Составить программу в паскале, используя чертежник. рисунок на фото

Var  a: array[1..1000] of longint;   n,i,k: longint; begin   readln(n);   for i: =1 to n do read(a[i]);   if odd(a[1]) then k: =1 else k: =2;   for i: =2 to n do   begin   if (odd(a[i]))and(k=1) then   begin     writeln('no');     halt;   end;   if (not odd(a[i]))and(k=2) then   begin     writeln('no');     halt;   end;   if k=1 then k: =2 else k: =1;   end;   writeln('yes'); end.

Var a: array[1..5] of integer; j,l,i,k,n: integer; begin readln(n); while not(n=0) do begin k: =k+1; a[k]: =n mod 10; n: =n div 10; end; for i: =1 to min(3,k) do begin n: =a[i]; l: =0;     for j: =1 to k do     if n=a[j] then     l: =l+1;   if l> =3 then   begin   writeln('в записи есть три одинаковых чисел');   l: =20;   break;   end; end;   if not(l=20) then   writeln('в записи нет трех одинаковых чисел'); end.