помогите не пашет алгоритм по вычеслению прожитых дней... Опции

[prevedmuraved]

не пойму чё ей не хватает...

program pr;
 uses crt,dos;
 var dn,an,ln:word;
 procedure days;
 var f:text;
      a:array[1..28,1..12] of integer;
      i,j:integer;
      ac,lc,dc,zc:word;
 begin
 getdate(ac,lc,dc,zc);
 assign(f,'D:\pascal\TP\BIN\exem\tebel1.txt');
 reset(f);
 for i:=1 to 28 do begin
  for j:=1 to 12 do begin
  read(f,a[i,j]);
  end;
  readln(f);
  end;
  close(f);

 end;
  begin
  writeln('dati data dvs de nastere ( dd ll aaa/EXEMPLU:  05 08 1999 )');
 readln(dn,ln,an);
 end.

М

Небольшие программы лучше все же помещать в текст мессаджа (с тегами code=pas), а не прикреплять файлом Lapp

[volvo]

и тот и этот code должен расчитывать прожитые дни.

Это - не алгоритм. Это - задача. Алгоритм - это детальное описание (повторяю, к компилятору вообще не лезь, расскажи на русском языке), как ты будешь делать эту задачу. Что надо найти для определения нужного тебе результата? Каким образом ты это ищешь? Почему именно так? (это к вопросу о високосности года, если что)

И не надо мне предлагать разбираться в программе. Во-первых, это мне малоинтересно, тут с первого взгляда видно, что оно без капитальной переделки работать не будет. А во-вторых, пока у тебя не будет четкой последовательности действий - любые твои попытки написать программу обречены на провал. Ты себе и другим объяснить не можешь на том языке, который для тебя - родной, а хочешь объяснить компьютеру, на абсолютно чужом тебе языке? Не смеши...