Задан массив из 9 целых чисел. вывести на экран элементы ,которые больше 15.

Program mas; var a: array[1..100] of integer;         i, n: integer; begin randomize;           writeln('введите размерность массива',n);           readln(n); for i: =1 to n do a[i]: =random(45)-1;   readln; for i: =1 to n do begin if a[i]> 15 then             write(' ',a[i]); end; readln; end.

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.

для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.