Турбо Паскаль : массивы

[ARAGON]

Известен месячный план выпуска некоторой продукции и объемы выпуска продукции заводом за год (помесячно) . Определить был ли выполнен годовой план ?

[RUSt88]

ну прям как дети

program P;
var
    Plan, i, temp: integer;
    Sdelano: array[1..12] of integer;
begin
    readln(Plan);
    temp := 0;
    for i := 1 to 12 do begin
        Readln(Sdelano[i]);
        temp := temp + Sdelano[i];
    end;
    if Sdelano < Plan then begin
        Writeln('Ok')
    else
        Writeln('Kill all workers!')
end.

в коде незначит ошибка, исправить труда не составит

[ARAGON]

в чём ошибка ?

[RUSt88]

не нашел ошибку?

за тебя тут по форуму задачи решают, ты даже спасибо никому не сказал

[ARAGON]

пасиба)))))