Составить программу, которая удаляет из списка L все числа, кратные трем

type
  ptDyn = ^tDyn;
  tDyn = record
    Next : ptDyn;
    d    : integer;
  end;
 
  procedure ViewDyn(s : ptDyn);
  begin s:=s^.next;
    while s<>nil do begin write(s^.d:4); s:=s^.Next; end; writeln; end;
 
  procedure DoneDyn(s : ptDyn);
  var p : ptDyn;
  begin while s<>nil do begin  p:=s; s:=s^.Next; Dispose(p); end; end;
 
var
  Start,Cur,p : ptDyn;
  i,n : integer;
 
Begin
  writeln('Wwodite dannye w spisok , 0 - okon4anie wwoda : ');
  new(Start); cur:=Start; cur^.d:=0; cur^.next:=nil; n:=1; i:=1;
  while n<>0 do begin
    write(i,' : '); readln(n);
    if n<>0 then begin
      new(cur^.Next); cur:=cur^.next; cur^.next:=nil; cur^.d:=n; inc(i);
    end;
  end;
  ViewDyn(start);
  cur:=Start;
  while (cur^.next<>nil) and (cur<>nil) do begin
    if (cur^.next^.d mod 3) =0 then begin
      p:=cur^.next;
      cur^.next:=cur^.next^.next; dispose(p);
    end;
    cur:=cur^.next;
  end;
  ViewDyn(start);
  DoneDyn(Start);
  readln;
End.