Как закодировать целое число 15? ?

var a,b,c: integer;

begin

write('введите результаты 3-х экзаменов: ');

readln (a,b,c);

if a+b+c < 13 then writeln ('сожалеем, вы не ')

else writeln('поздравляем, вы приняты! ')

end.

const n=3;

var a: array [1..n,1..n] of integer;

i,j,s: integer;

begin

for i: =1 to n do

begin

for j: =1 to n do

begin

write('введите результат ',j,' экзамена ',i,' ученика ');

readln(a[i,j])

end

end;

writeln;

for i: =1 to n do

begin

s: =0;

for j: =1 to n do s: = s+a[i,j];

if s < 13 then writeln ('сожалеем, ученик ',i,' вы не ')

else writeln('поздравляем, ученик ',i,' вы приняты! ')

end

end.

Type       array100 = array[1..100]of integer; var       x: array100;       i, n, j, t, min, max: integer; procedure show(x: array100; n: integer); var i: integer; begin       writeln();       writeln('вывод массива[',n,']: ');       for i : = 1 to n do               write(x[i], ' ');       writeln(); end; begin       n : = 20;       max : = -200;       min : = 200;             for i : = 1 to n do       begin               x[i] : = random(2*n) - n;       end;       show(x, n);             for i : = 1 to n do       begin               if (x[i] > 0) and (x[i] mod 2 = 1) then begin                       if x[i] > max then max : = x[i];                       if x[i] < min then min : = x[i];               end;       end;       writeln('max = ', max, ' min = ', min);             i : = 1;       while i < = n do       begin               if x[i] = 0 then begin                       for j : = i + 1 to n do                               x[j - 1] : = x[j];                       n : = n - 1;               end               else i : = i + 1;       end;       show(x,n); end.