Дан одномерный массив. Сформировать его в промежутке до 50. Вывести на экран количество нечётных элементов массива, больших 40

Const n=10; 
type ar=array[1..n+1] of integer;
var 
a:ar; i,p:integer; 
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(31);
 write(a[i]:4);
 end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n 
 then writeln('Значение 17 найдено, номер элемента = ',i)
 else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
  14   5   7  17  25  15  28   0  24   0
Значение 17 найдено, номер элемента = 4

pascal

Объяснение:

program photo;

var

 a, b: integer;

begin

 WriteLn('Введите размер фотографии в см: ');

 Write('длина: '); ReadLn(a);

 Write('ширина: '); ReadLn(b);

 WriteLn('Размер отсканированного изображения разрешением 600 пиксел/дюйм');

 WriteLn('при 24-битном кодировании будет равен:');

 WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24:12:2, ' бит');

 WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8:12:2, ' байт');  

 WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8 / 1024:12:2, ' Кбайт');  

 WriteLn((a / 2.54 * 600) * (b / 2.54 * 600) * 24 / 8 / 1024 / 1024:12:2, ' Мбайт');  

end.