А !=0 в Паскале означает синтаксическую ошибку.
Так записывается операция отношения ≠ в языках семейства С.
A в Паскале неравенство записывается в виде А <> 0
Перед 3м "begin" добавь "For i: = 1 to 10 do"
const N=30;
var a:array[1..N] of integer;
i, j, k, imax, kmax: integer;
begin
kmax:=0;
imax:=0;
for i:=1 to N do readln(a[i]);
k:=0;
for j:=1 to a[i] div 2 do if a[i] mod j =0 then inc(k);
if k>kmax then begin
kmax:=k;
imax:=i;
end;
end.
компьютер
↓ ↓ ↓ ↓
процессор память устройства ввода устройства вывод
↓ ↓
внутр пам внешн память
↓ ↓
носитель инф накопитель