Задача 1. : Из чисел от 10 до 99, вывести те числа, у которых сумма цифр четная.
Program prim1;
Var i, p1, p2, s: integer;
Begin
{организовываем цикл с параметром от 10 до 99}
for i:= 10 to 99 do begin
p1:= i div 10; { выделяем первую цифру}
p2:= i mod 10; {выделяем последнюю цифру}
s:= p1+p2; {находим сумму цифр числа i}
{проверяем равна сумму цифр числа i числу n }
if s mod 2=0 then writeln (‘i=’, i);
end;
readln;
end.
Нужно проверить правильность решении задачи Ну дружу с информатикой. Объясните как это вообще понимать

Program  Bolatkabylov;
uses crt;
const n=4;
const m=5;
var
  s:string; 
  i,j,min:integer;
  A:array[1..n,1..m] of integer;
  B:array[1..m] of integer;
begin
  S:='*** Alphaeus is thinking... ***';
  for i:=1 to length(s) do begin
  write(s[i]);
  for j:=1 to 500000 do s[i]:=s[i];
  end;
  writeln();
  writeln('***          OK             ***');
  writeln();
  writeln('Для заданного массива А размерности 4х5 сформировать одномерный массив В, ');
  writeln('элементами которого будут минимальные элементы в каждом столбце массива А.');
  randomize;
  writeln();
  writeln('Массив А: ');
  //Заполняем массив А случайными числами и выводим его
    for i:=1 to n do  begin
    for j:=1 to m do
    begin
      A[i,j]:=random(100)-50;
      write(A[i,j]:4,' ');
    end;
    writeln();
  end;
  //Находим минимальные элементы в каждом столбце и сохраняем в массив В
  for j:=1 to m do  begin
    min:=A[1,j];
    for i:=1 to n do
    begin
      if A[i,j]<min then min:=A[i,j];
    end;
    B[j]:=min;
  end;
  //Выводим массив В
  writeln();
  writeln('Mассив B: ');
  for j:=1 to m do
    write(B[j]:4,' ');
end.

Var a: array of integer; var i: byte; var b: boolean; begin b: =true; setlength(a,8); var n: =0; writeln('введите число: '); readln(i); var d: =i; while i< > 0 do begin a[n]: =i mod 2; i: =i div 2; inc(n); end; setlength(a,n); for   i: =0 to n-1 do begin if n=0 then begin write(0); break; end; swap(a[i],a[n-1]); write(a[i]); end; for i: =1 to n-1 do begin if n=0 then break; if a[i-1]< > a[i] then begin b: =false; break; end; end; if (b=false) then write(' = ',d,' это не палиндром') else  write(' = ',d,' это палиндром'); end.