Дано двузначное число. определить: превышает ли сумма его цифр само число; является ли сумма его цифр двузначным числом; оканчивается ли введённое число цифрой 5? заранее ))

 Var a,s,x,y:integer;
begin
writeln ('введи двузначное число');
readln (a);
x:=a div 10;
y:=a mod 10;

s:=x+y;
if (s>9 ) and (s<100) then writeln('summa dvuznacina') else writeln('summa nedvuznacina');
if a mod 10=5 then writeln ('okancivaetsia na 5') else writeln('ne okancivaetsia na 5');
readln;
end.

<script type="text/javascript">

   // создание многомерного массива.

       var arr = new Array(5);

 arr[0]= new Array(-1, 2, -3, 4, 5);  

 arr[1]= new Array(6, 7, -8, 9, 1);  

 arr[2]= new Array(4, -5, 6, 7, 8);

 arr[3]= new Array(-3, 2, -1, 9, 8);

 arr[4]= new Array(7, -6, -5, 4, -3);  

        for (var i = 0; i < arr.length; i++) {  

           for (var j = 0; j < arr[i].length; j++)  {          

                 if (i==j){

                   if (arr[i][j] < 0)

    arr[i][j]= "0"

               else

                   arr[i][j] = "1" ;

                //вывод заполненной Ячейки сразу      

           }  

  document.write(" "  +arr[i][j]+  "");            

       }  

 document.write("<br/>");

}            

</script>

Program Massive;

uses Crt;

const

  K = 3;

  L = 6;

var

  Z: array [1..K * L] of integer;

  R: array [1..K * L] of integer;

  Q: array [1..K * L] of integer;

  i: integer;

  x: integer;

begin

    Randomize;

    x := K * L;

    for i:= 1 to x do

    begin

      Z[i] := Random(20);

      R[i] := Random(10);

    end;

    ClrScr;

    writeln('Massive Z:');

    for i:= 1 to x do

        write(Z[i]:4);

    writeln;

    writeln('Massive R:');

    for i:= 1 to x do

        write(R[i]:4);

    writeln;

    for i:= 1 to x do

        Q[i]:= Z[i] * R[i] + 10;

    writeln('Massive Q:');

    for i:= 1 to x do

        write (Q[i]:4);

    readln

end.