сделать программу этой картинки в паскале

#include "iostream" using namespace std; int main(){ int secound =0; int hh =0; int mm =0; int ss =0; int ch[5]; cin >> secound; hh = secound / 3600; mm = secound/60 - hh * 60; ss = secound - hh*3600 - mm *60 ; if(hh >=24){ int b = hh / 24; hh = hh - 24 *b; } ch[0] = hh; if(mm< 10){ ch[1] =0; ch[2] = ss; }else ch[1] = mm / 10; ch[2] = mm - mm / 10 * 10; if(ss< 10){ ch[3] = 0; ch[4] = ss; } else ch[3] = ss /10; ch[4] = ss - ss / 10 * 10; cout << ch[0] << ':' << ch[1] <

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,i,j,sum:integer;

Begin
Writeln('Введите размер матрицы N*N');
Write('N = ');readln(N);
if (N>1000) or (N<1)  then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
 Begin      
   Writeln('Введите элементы матрицы');      
   sum:=0;   
   for i:=1 to N do     
     for j:=1 to N do     
         Begin     
           readln(mas[i,j]);       
           if (mas[i,j] mod 2 <> 0)
                then sum:=sum+mas[i,j];     
          end;      

     Writeln();   
     Writeln('Исходная матрица');   
     for i:=1 to N do   
        Begin     
            for j:=1 to N do     
               Begin     
                  Write(mas[i,j], ' ');     
               end;     
             Writeln();   
         end;         

     Writeln();   
     Writeln('Сумма нечетных элементов = ',sum);      

  end;

readln;
end.