Информатика

Ефросиныч

31 мая, 17:01

Помогите найти ошибку в программе (Массив)

Program Ah;

uses crt;

var A:array[1 ... 15] of integer;

i, k, n:integer;

begin

clrscr;

for i:=1 to 18 do begin

writeln ('A[', i,']=') ;

read (A[i]) ;

end;

writeln ('Введите число') ;

read (n) ;

k:=0;

for i:=1 to 15 do begin

if a[i]>n then

k:=k+1;

writeln ('k=', k) ;

readkey;

end.

(В последней строке выдает "Ошибка, ожидается точка с запятой")