Найти ошибку в программе (массив) 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. (в последней строке выдает "ошибка, ожидается точка с запятой")
if a[i]>n then
k:=k+1;
end;
Вот тут не хватает end